home *** CD-ROM | disk | FTP | other *** search
/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / games / 612 / source / sos.cmd < prev    next >
OS/2 REXX Batch file  |  1992-02-02  |  54KB  |  3,312 lines
  1.  
  2.  
  3.  
  4. (*flags
  5.      (*flag 0         debug
  6.      (*flag 1         sound 1=off
  7.      (*flag 2         plank   1=over gap
  8.      (*flag 3         trumpet/collapsing room  1=escaped
  9.      (*flag 4         hat/secret  1=secret NOT under hat
  10.      (*flag 5         policy 1=dispenced
  11.      (*flag 6         soda 1=given to girl
  12.      (*flag 7         pager 1=message waiting
  13.      (*flag 8         misc: bad gift to packrat & rogues gallery
  14.      (*flag 9         chain sawed 1=yes
  15.      (*flag 10        fire 1=burning
  16.      (*flag 11        organ stop used 1=yes
  17.      (*flag 12        soggy dictionary 1=first message given
  18.      (*flag 13        save 1=saved
  19.      (*flag 14        death 1=died
  20.      (*flag 15        rat 1=SKATE
  21.      (*flag 16        rat 1=LAMP
  22.      (*flag 17        rat 1=OIL
  23.      (*flag 18        rat 1=KEY
  24.      (*flag 19        rat 1=BUGLE
  25.      (*flag 20        rat 1=TRUMPET
  26.      (*flag 21        rat 1=CUTTER
  27.      (*flag 22        rat 1=QUARTER
  28.      (*flag 23        rat 1=HAT
  29.      (*flag 24        rat 1=BOTTLE
  30.      (*flag 25        rat 1=something was given this turn)
  31. (*variables
  32.      (*variable 1     default 155 (mens)
  33.      (*variable 2     default 156 (womens)
  34.      (*variable 3     genie appearances
  35.      (*variable 4     NEWROOM
  36.      (*variable 5     bathroom/tape  121/161
  37.      (*variable 6     proposal series
  38.      (*variable 7     rounds completed
  39.      (*variable 8     thirsty  124/163
  40.      (*variable 9     thirsty  125/164
  41.      (*variable 10    thirsty  152/167
  42.      (*variable 11    Insurance expires
  43.      (*variable 12    Collapse messages (87 - 90)
  44.      (*variable 13    Fire messages (63 - 65)
  45.      (*variable 14    Bathroom messages (117 - 120)
  46.      (*variable 15    Roof Jump - room number
  47.      (*variable 16    Rogues Gallery
  48.      (*variable 17    Bonus Score
  49. (*counters
  50.      (*counter 1      fire 0 - 9
  51.      (*counter 2      collapsing room
  52.      (*counter 3      dictionary soggy
  53.      (*counter 4      bathroom
  54.      (*counter 5      thirsty
  55.      (*counter 6      insurance past due
  56.      (*counter 7      Rogues Gallery
  57.  
  58. COMMAND ANY
  59. NewLife
  60. SetVariableTo 1 155
  61. SetVariableTo 2 156
  62. SetVariableTo 5 121
  63. SetVariableTo 8 124
  64. SetVariableTo 9 125
  65. SetVariableTo 10 152
  66. SetVariableTo 12 87
  67. SetVariableTo 13 63
  68. SetVariableTo 14 117
  69. END_COMMAND
  70.  
  71. COMMAND YES
  72. AtLocation 2
  73. SetVariableTo 1 156
  74. SetVariableTo 2 155
  75. SetVariableTo 5 161
  76. SetVariableTo 8 163
  77. SetVariableTo 9 164
  78. SetVariableTo 10 167
  79. SwapLocations 321 322 (*actor/actress)
  80. SwapLocations 324 325 (*zoo keepers)
  81. GoToRoom 108
  82. DoneWithTurn
  83. END_COMMAND
  84.  
  85. COMMAND ANY
  86. SendToRoom 223 8 (*clears head)
  87. VariableGT 11 0  (*insurance)
  88. SubtractFromVariable 11 1
  89. VariableEquals 11 1  (*insurance)
  90. TurnCounterOn 6 (*expired)
  91. END_COMMAND
  92.  
  93. COMMAND ANY
  94. AtLocation 110
  95. NOT ObjectIsNumber 324
  96. NOT ObjectIsNumber 325
  97. NOT NOUNIsNumber 324
  98. NOT NOUNIsNumber 325
  99. NOT VerbIsDirection
  100. IsSomewhere 314 (*plant)
  101. Chance 60
  102. RandomMessage 245 250
  103. BlankLine
  104. END_COMMAND
  105.  
  106. COMMAND ANY
  107. CounterGT 7  7
  108. PrintMessage 243 (*back to Gallery)
  109. BlankLine
  110. GoToRoom 110
  111. MinusScore 100
  112. TurnCounterOFF 7
  113. TurnFlagOFF 8
  114. DoneWithTurn
  115. END_COMMAND
  116.  
  117. COMMAND ANY
  118. AtLocationGT 110
  119. FlagOFF 8  (*Rogues Gallery)
  120. TurnCounterON 7
  121. TurnFlagON 8
  122. END_COMMAND
  123.  
  124. COMMAND ANY
  125. AtLocation 64
  126. IsCarrying 251
  127. PrintMessage 31 (*fall)
  128. BlankLine
  129. TurnFlagON 14
  130. END_COMMAND
  131.  
  132. COMMAND ANY
  133. AtLocation 18
  134. FirstVisitToRoom
  135. PlusScore 100
  136. END_COMMAND
  137.  
  138. COMMAND ANY
  139. AtLocation 4
  140. VerbIsDirection
  141. IsCarrying 212
  142. FlagOFF 9
  143. PrintMessage 12 (*drop crowbar)
  144. BlankLine
  145. SendToRoom 212 4
  146. END_COMMAND
  147.  
  148. COMMAND ANY
  149. VerbIsDirection
  150. FlagON 4
  151. or
  152. IsCarrying 280 (*secret)
  153. PutInCurrentRoom 280
  154. PrintMessage 18 (*secret fell)
  155. BlankLine
  156. TurnFlagOFF 4
  157. MinusScore 10
  158. END_COMMAND
  159.  
  160. COMMAND ANY
  161. FlagOFF 13 (*not saved)
  162. CounterGT 3 100 (*soggy dictionary)
  163. TurnFlagOFF 12
  164. TurnCounterOFF 3
  165. END_COMMAND
  166.  
  167. COMMAND ANY
  168. FlagON 13 (*saved)
  169. CounterGT 3 300 (*soggy dictionary)
  170. TurnFlagOFF 12
  171. TurnCounterOFF 3
  172. END_COMMAND
  173.  
  174. COMMAND ANY
  175. VariableEquals 3 4 (*genie been to catwalk)
  176. IsSomewhere 310 (*princess)
  177. OR
  178. IsSomewhere 312 (*prince)
  179. SetVariableTo 3 5
  180. SendToRoom 304 78 (*genie to stage)
  181. END_COMMAND
  182.  
  183. COMMAND ANY
  184. VariableEquals 3 5 (*Genie on stage/NOT seen)
  185. VerbIsDirection
  186. AtLocationGT 71
  187. AtLocationLT 83
  188. GoToRoom 78
  189. SetVariableTo 3 6
  190. PrintMessage 33
  191. BlankLine
  192. DoneWithTurn
  193. END_COMMAND
  194.  
  195. COMMAND ANY
  196. AtLocation 105  (*restroom)
  197. CounterGT 4 0
  198. PrintVariableMessage 5 (*made IT)
  199. BlankLine
  200. TurnCounterOFF 4
  201. SendtoRoom 241 1 (*tape)
  202. PlusScore 100
  203. DoneWithTurn
  204. END_COMMAND
  205.  
  206. COMMAND ANY
  207. CounterEquals 2 3 (*collapse)
  208. TurnCounterON 2
  209. PrintVariableMessage 12
  210. BlankLine
  211. AddToVariable 12 1
  212. END_COMMAND
  213.  
  214. COMMAND ANY
  215. CounterEquals 1 4 (*fire)
  216. TurnCounterON 1
  217. PrintVariableMessage 13
  218. BlankLine
  219. AddToVariable 13 1
  220. END_COMMAND
  221.  
  222. COMMAND ANY
  223. CounterEquals 4 4 (*bathroom)
  224. TurnCounterON 4
  225. PrintVariableMessage 14
  226. BlankLine
  227. AddToVariable 14 1
  228. END_COMMAND
  229.  
  230. COMMAND ANY
  231. CounterEquals 5 5 (*thirsty)
  232. PrintMessage 116
  233. BlankLine
  234. END_COMMAND
  235.  
  236. COMMAND ANY
  237. CounterEquals 5 80
  238. PrintVariableMessage 8
  239. BlankLine
  240. END_COMMAND
  241.  
  242. COMMAND ANY
  243. CounterEquals 5 150
  244. PrintvariableMessage 9
  245. BlankLine
  246. END_COMMAND
  247.  
  248. COMMAND ANY
  249. CounterEquals 5 200
  250. IsSomewhere 274 (*rushing stream)
  251. PrintVariableMessage 10
  252. PrintMessage 126 (*drown - bucket)
  253. TurnFlagON 14
  254. END_COMMAND
  255.  
  256. COMMAND ANY
  257. CounterEquals 5 200
  258. PrintVariableMessage 10
  259. PrintMessage 128 (*die - shallow)
  260. TurnFlagON 14
  261. END_COMMAND
  262.  
  263. COMMAND ANY
  264. VariableEquals 12 91 (*collapse)
  265. OR
  266. VariableEquals 13 66 (*fire)
  267. OR
  268. VariableEquals 14 121 (*bathroom)
  269. OR
  270. FlagON 14
  271. ReDirectTo COMMANDS DRAWER
  272. END_COMMAND
  273.  
  274. COMMAND ANY
  275. VerbIsDirection
  276. IsWearing 254 (*bucket)
  277. NOT AtLocation 18
  278. NOT AtLocation 19
  279. PrintMessage 129 (*bucket on face)
  280. BlankLine
  281. DoneWithTurn
  282. END_COMMAND
  283.  
  284. COMMAND ANY
  285. Chance 1
  286. Chance 20
  287. ClearScreen
  288. PrintMessage 217
  289. Delay 5
  290. PrintMessage 218
  291. BlankLine
  292. Delay 2
  293. LookAtRoom
  294. END_COMMAND
  295.  
  296. COMMAND ANY
  297. Chance 1
  298. Chance 30
  299. RandomMessage 214 216 (*ghosts)
  300. delay 5
  301. BlankLine
  302. END_COMMAND
  303.  
  304. COMMAND ANY
  305. Chance 1
  306. Chance 40
  307. Present 268
  308. PrintMessage 239 (*pager beeping)
  309. BlankLine
  310. TurnFlagON 7
  311. FlagOFF 1
  312. TONE 1046 100
  313. TONE 1568 100
  314. TONE 1046 100
  315. TONE 1568 100
  316. TONE 1046 100
  317. END_COMMAND
  318.  
  319. COMMAND debug
  320. ToggleFlag 0          (*debug flag)
  321. DoneWithTurn
  322. END_COMMAND
  323.  
  324. COMMAND NEWROOM
  325. NounToVariable 4
  326. VariableGT 4 1
  327. VariableLT 4 180
  328. GoToVariableRoom 4
  329. DoneWithTurn
  330. END_COMMAND
  331.  
  332. COMMAND SCORE
  333. PrintMessage 238
  334. END_COMMAND
  335.  
  336. COMMAND HELP
  337. AtLocationLT 110
  338. NOT AtLocation 40
  339. PrintMessage 241
  340. END_COMMAND
  341.  
  342. COMMAND MAGIC_WORD
  343. AtLocation 10 (*organ)
  344. FlagOFF 11
  345. PlusScore 100
  346. TurnFlagOn 11
  347. END_COMMAND
  348.  
  349. COMMAND SOUTH ANY
  350. Present 208
  351. OR
  352. Present 290
  353. PrintMessage 159 (*bump)
  354. BlankLine
  355. LookAtRoom
  356. DoneWithTurn
  357. END_COMMAND
  358.  
  359. COMMAND SOUTH ANY
  360. AtLocation 33
  361. MakeVarRoomNum 15
  362. PrintMessage 49
  363. BlankLine
  364. LookAtRoom
  365. DoneWithTurn
  366. END_COMMAND
  367.  
  368. COMMAND SOUTH ANY
  369. AtLocation 4 (*shop)
  370. Present 305 (*cat)
  371. GoToRoom 7
  372. PrintMessage 130
  373. BlankLine
  374. Destroy 305
  375. PlusScore 100
  376. PutInCurrentRoom 253 (*knob)
  377. DoneWithTurn
  378. END_COMMAND
  379.  
  380. COMMAND SOUTH ANY
  381. AtLocation 8
  382. FlagOFF 2     (*plank missing)
  383. Present 287
  384. destroy 287
  385. PrintMessage 9 (*putting plank down)
  386. TurnFlagOn 2
  387. BlankLine
  388. GoToRoom 15   (*go south)
  389. PlusScore 100
  390. DoneWithTurn
  391. END_COMMAND
  392.  
  393. COMMAND SOUTH ANY
  394. AtLocation 8
  395. FlagOff 2     (*plank missing)
  396. PrintMessage 10 (*die)
  397. TurnFlagON 14
  398. END_COMMAND
  399.  
  400. COMMAND SOUTH ANY
  401. AtLocationGT 76  (*down right)
  402. AtLocationLT 80  (*down left)
  403. IsLocated 298 54  (*curtain down)
  404. PrintMessage 200  (*bounce back)
  405. BlankLine
  406. LookAtRoom
  407. DoneWithTurn
  408. END_COMMAND
  409.  
  410. COMMAND SOUTH ANY
  411. AtLocation 82 (*apron)
  412. IsLocated 298 77  (*curtain UP)
  413. Chance 50
  414. MinusScore 50
  415. RelocateAll 1 94
  416. RelocateAll 1000 94
  417. TurnFlagOFF 4
  418. GoToRoom 13   (*pit)
  419. PrintMessage 6 (*fall down)
  420. BlankLine
  421. DoneWithTurn
  422. END_COMMAND
  423.  
  424. COMMAND SOUTH ANY
  425. AtLocation 82 (*apron)
  426. PrintMessage 199  (*bounce back)
  427. BlankLine
  428. LookAtRoom
  429. DoneWithTurn
  430. END_COMMAND
  431.  
  432. COMMAND SOUTH ANY
  433. AtLocation 52 (*grid)
  434. IsLocated 298 77 (*curtain up)
  435. PrintMessage 79 (*fall)
  436. BlankLine
  437. TurnFlagON 14
  438. END_COMMAND
  439.  
  440. COMMAND SOUTH ANY
  441. AtLocation 35
  442. FlagOFF 3 (*played trumpet)
  443. TurnCounterON 2 (*collapse)
  444. GoToRoom 49 (*collapse)
  445. PrintMessage 86 (*enter room)
  446. DoneWithTurn
  447. END_COMMAND
  448.  
  449. COMMAND SOUTH ANY
  450. IsWearing 254 (*bucket)
  451. AtLocation 18
  452. PrintMessage 129 (*bucket on face)
  453. BlankLine
  454. DoneWithTurn
  455. END_COMMAND
  456.  
  457. COMMAND SOUTH ANY
  458. FlagOFF 15 (*rat)
  459. AtLocation 16
  460. SendToRoom 306 109
  461. END_COMMAND
  462.  
  463. COMMAND SOUTH ANY
  464. FlagOFF 17 (*rat)
  465. AtLocation 27
  466. SendToRoom 306 31
  467. END_COMMAND
  468.  
  469. COMMAND SOUTH ANY
  470. FLagON 14
  471. ReDirectTo COMMANDS DRAWER
  472. END_COMMAND
  473.  
  474. COMMAND SOUTHWEST ANY
  475. AtLocation 53 (*grid)
  476. IsLocated 298 77 (*curtain up)
  477. PrintMessage 79 (*fall)
  478. RedirectTO COMMANDS DRAWER
  479. END_COMMAND
  480.  
  481. COMMAND NORTH ANY
  482. AtLocation 56
  483. MakeVarRoomNum 15
  484. PrintMessage 49
  485. BlankLine
  486. LookAtRoom
  487. DoneWithTurn
  488. END_COMMAND
  489.  
  490. COMMAND NORTH ANY
  491. AtLocation 16 (*hall)
  492. RelocateAll 1 94
  493. RelocateAll 1000 94
  494. TurnFlagOFF 4
  495. MinusScore 50
  496. PrintMessage 147 (*elevator)
  497. BlankLine
  498. GoToRoom 44
  499. DoneWithTurn
  500. END_COMMAND
  501.  
  502. COMMAND NORTH ANY
  503. AtLocation 108
  504. RelocateAll 1 94
  505. RelocateALL 1000 94
  506. TurnFlagOFF 4
  507. MinusScore 50
  508. GoToRoom 91
  509. PrintMessage 50 (*balcony fall)
  510. BlankLine
  511. DoneWithTurn
  512. END_COMMAND
  513.  
  514. COMMAND NORTH ANY
  515. AtLocation 85  (*audience)
  516. IsLocated 298 77  (*curtain up)
  517. Chance 50
  518. MinusScore 50
  519. RelocateAll 1 94
  520. RelocateAll 1000 94
  521. TurnFlagOFF 4
  522. PrintMessage 6 (*fall down)
  523. BlankLine
  524. GoToRoom 13
  525. DoneWithTurn
  526. END_COMMAND
  527.  
  528. COMMAND NORTH ANY
  529. AtLocation 60
  530. VariableEquals 3 1 (*lamp has been rubbed)
  531. SetVariableTo 3 2
  532. SendToRoom 302 51 (*genie to green room)
  533. PrintMessage 26
  534. END_COMMAND
  535.  
  536. COMMAND NORTH ANY
  537. AtLocation 85  (*audience)
  538. PrintMessage 8  (*bounce back)
  539. BlankLine
  540. LookAtRoom
  541. DoneWithTurn
  542. END_COMMAND
  543.  
  544. COMMAND NORTH ANY
  545. AtLocation 82  (*apron)
  546. IsLocated 298 54  (*curtain down)
  547. PrintMessage 200  (*bounce back)
  548. BlankLine
  549. LookAtRoom
  550. DoneWithTurn
  551. END_COMMAND
  552.  
  553. COMMAND NORTH ANY
  554. IsWearing 254 (*bucket)
  555. AtLocation 19
  556. PrintMessage 129 (*bucket on face)
  557. BlankLine
  558. DoneWithTurn
  559. END_COMMAND
  560.  
  561. COMMAND NORTH ANY
  562. FlagOFF 16 (*rat)
  563. AtLocation 93
  564. SendToRoom 306 87
  565. END_COMMAND
  566.  
  567. COMMAND NORTH ANY
  568. FlagOFF 20 (*rat)
  569. AtLocation 32
  570. SendToRoom 306 56
  571. END_COMMAND
  572.  
  573. COMMAND WEST ANY
  574. Present 210
  575. OR
  576. Present 213
  577. OR
  578. Present 218
  579. OR
  580. Present 289
  581. PrintMessage 159 (*bump)
  582. BlankLine
  583. LookAtRoom
  584. DoneWithTurn
  585. END_COMMAND
  586.  
  587. COMMAND WEST ANY
  588. AtLocation 33
  589. OR
  590. AtLocation 32
  591. MakeVarRoomNum 15
  592. PrintMessage 49
  593. BlankLine
  594. LookAtRoom
  595. DoneWithTurn
  596. END_COMMAND
  597.  
  598. COMMAND WEST ANY
  599. Present 274 (*rushing stream)
  600. Not IsWearing 254 (*bucket)
  601. IsWearing 269 (*scuba)
  602. PrintMessage 53 (*drown - scuba)
  603. TurnFlagON 14
  604. END_COMMAND
  605.  
  606. COMMAND WEST ANY
  607. FlagOFF 14
  608. Present 274 (*rushing stream)
  609. Not IsWearing 254
  610. PrintMessage 51
  611. TurnFlagON 14
  612. END_COMMAND
  613.  
  614. COMMAND WEST ANY
  615. FlagOFF 14
  616. Present 274 (*rushing stream)
  617. Present 309 (*girl)
  618. PrintMessage 52 (*drown)
  619. TurnFlagON 14
  620. END_COMMAND
  621.  
  622. COMMAND WEST ANY
  623. FlagOFF 14
  624. Present 274 (*rushing stream)
  625. Present 311 (*guy)
  626. PrintMessage 157 (*drown)
  627. TurnFlagON 14
  628. END_COMMAND
  629.  
  630. COMMAND WEST ANY
  631. FlagOFF 14
  632. Present 274 (*rushing stream)
  633. NOT Present 309
  634. NOT Present 311
  635. GoToRoom 18 (*hall)
  636. PrintMessage 77 (*bucket)
  637. BlankLine
  638. DoneWithTurn
  639. END_COMMAND
  640.  
  641. COMMAND WEST ANY
  642. Present 275
  643. PrintMessage 54 (*ok)
  644. BlankLine
  645. END_COMMAND
  646.  
  647. COMMAND WEST ANY
  648. AtLocation 44 (*shaft)
  649. IsClosed 217 (*elevator doors)
  650. PrintMessage 96 (*doors closed)
  651. BlankLine
  652. DoneWithTurn
  653. END_COMMAND
  654.  
  655. COMMAND WEST ANY
  656. AtLocation 44
  657. CloseIt 217
  658. PrintMessage 97 (*slide shut)
  659. BlankLine
  660. END_COMMAND
  661.  
  662. COMMAND WEST ANY
  663. AtLocation 65 (*catwalk)
  664. IsCarrying 251 (*crate)
  665. VariableEquals 3 2 (*has been to green room)
  666. SendToRoom 303 65 (*genie #2)
  667. PrintMessage 29
  668. BlankLine
  669. SetVariableTo 3 3
  670. DoneWithTurn
  671. END_COMMAND
  672.  
  673. COMMAND WEST ANY
  674. AtLocation 55
  675. IsLocated 298 77 (*curtain up)
  676. PrintMessage 79 (*fall)
  677. TurnFlagON 14
  678. END_COMMAND
  679.  
  680. COMMAND WEST ANY
  681. AtLocation 56 (*roof)
  682. Present 279
  683. IsOpen 279 (*window)
  684. IsWearing 238 (*snowshoes)
  685. GotoRoom 53
  686. PrintMessage 83 (*thru window)
  687. BlankLine
  688. DoneWithTurn
  689. END_COMMAND
  690.  
  691. COMMAND WEST ANY
  692. AtLocation 56
  693. Present 279
  694. IsOpen 279
  695. PrintMessage 84 (*fall)
  696. TurnFlagON 14
  697. END_COMMAND
  698.  
  699. COMMAND WEST ANY
  700. IsClosed 279
  701. AtLocation 56
  702. PrintMessage 172 (*can't)
  703. BlankLine
  704. LookAtRoom
  705. DoneWithTurn
  706. END_COMMAND
  707.  
  708. COMMAND WEST ANY
  709. AtLocation 72 (*stage door)
  710. VariableEquals 7 1 (*in round 2)
  711. IsCarrying 293 (*chest)
  712. PrintMessage 145 (*end round 2)
  713. BlankLine
  714. SendToRoom 300 20 (*cat)
  715. SwapLocations 296 210 (*stage doors)
  716. AddToVariable 7 1
  717. PlusScore 2000
  718. LookAtRoom
  719. DoneWithTurn
  720. END_COMMAND
  721.  
  722. COMMAND WEST ANY
  723. AtLocation 72
  724. VariableEquals 7 1
  725. PrintMessage 146
  726. BlankLine
  727. DoneWithTurn
  728. END_COMMAND
  729.  
  730. COMMAND WEST ANY
  731. FlagOFF 23 (*rat)
  732. AtLocation 13
  733. SendToRoom 306 9
  734. END_COMMAND
  735.  
  736. COMMAND WEST ANY
  737. FlagOFF 22 (*rat)
  738. AtLocation 45
  739. SendToRoom 306 20
  740. END_COMMAND
  741.  
  742. COMMAND WEST ANY
  743. FlagON 14
  744. ReDirectTo COMMANDS DRAWER
  745. END_COMMAND
  746.  
  747. COMMAND EAST ANY
  748. Present 214
  749. OR
  750. Present 216
  751. OR
  752. Present 219
  753. PrintMessage 159 (*bump)
  754. BlankLine
  755. LookAtRoom
  756. DoneWithTurn
  757. END_COMMAND
  758.  
  759. COMMAND EAST ANY
  760. AtLocation 33
  761. OR
  762. AtLocation 32
  763. OR
  764. AtLocation 56
  765. MakeVarRoomNum 15
  766. PrintMessage 49
  767. BlankLine
  768. LookAtRoom
  769. DoneWithTurn
  770. END_COMMAND
  771.  
  772. COMMAND EAST ANY
  773. present 276 (*rushing stream)
  774. Not IsWearing 254 (*bucket)
  775. IsWearing 269 (*scuba)
  776. PrintMessage 53 (*drown - scuba)
  777. TurnFlagON 14
  778. END_COMMAND
  779.  
  780. COMMAND EAST ANY
  781. FlagOFF 14
  782. Present 276 (*rushing stream)
  783. Not IsWearing 254
  784. PrintMessage 51
  785. TurnFlagON 14
  786. END_COMMAND
  787.  
  788. COMMAND EAST ANY
  789. FlagOFF 14
  790. Present 276 (*rushing stream)
  791. Present 309 (*girl)
  792. PrintMessage 52 (*drown)
  793. TurnFlagON 14
  794. END_COMMAND
  795.  
  796. COMMAND EAST ANY
  797. FlagOFF 14
  798. Present 276 (*rushing stream)
  799. Present 311 (*guy)
  800. PrintMessage 157 (*drown)
  801. TurnFlagON 14
  802. END_COMMAND
  803.  
  804. COMMAND EAST ANY
  805. FlagOFF 14
  806. Present 276 (*rushing stream)
  807. NOT Present 309
  808. NOT Present 311
  809. GoToRoom 19 (*hall)
  810. PrintMessage 78 (*bucket)
  811. BlankLine
  812. DoneWithTurn
  813. END_COMMAND
  814.  
  815. COMMAND EAST ANY
  816. Present 277
  817. PrintMessage 54 (*ok)
  818. BlankLine
  819. END_COMMAND
  820.  
  821. COMMAND EAST ANY
  822. AtLocation 8 (*gap)
  823. IsSomewhere 274 (*rushing stream)
  824. NOT IsWearing 280
  825. OR
  826. AtLocation 8
  827. IsSomewhere 274
  828. FlagON 4
  829. PrintMessage 169 (*warning)
  830. BlankLine
  831. LookAtRoom
  832. DoneWithTurn
  833. END_COMMAND
  834.  
  835. COMMAND EAST ANY
  836. AtLocation 14
  837. IsClosed 217
  838. PrintMessage 96 (*elevator doors closed)
  839. BlankLine
  840. DoneWithTurn
  841. END_COMMAND
  842.  
  843. COMMAND EAST ANY
  844. AtLocation 14
  845. CloseIt 217
  846. PrintMessage 97 (*close behind you)
  847. BlankLine
  848. END_COMMAND
  849.  
  850. COMMAND EAST ANY
  851. AtLocation 88
  852. FlagON 10 (*fire)
  853. PrintMessage 58 (*fire blocks way)
  854. BlankLine
  855. DoneWithTurn
  856. END_COMMAND
  857.  
  858. COMMAND EAST ANY
  859. FlagOFF 10
  860. AtLocation 90 (*rehears)
  861. IsCarrying 281 (*sign)
  862. PrintMessage 62 (*fire start)
  863. BlankLine
  864. TurnCounterON 1 (*fire)
  865. TurnFlagON 10 (*fire)
  866. GotoRoom 84
  867. ChangePassageway 4 47 (*charred hall)
  868. GoToRoom 89
  869. PlusScore 100
  870. DoneWithTurn
  871. END_COMMAND
  872.  
  873. COMMAND EAST ANY
  874. AtLocation 28 (*guillotine)
  875. Present 309 (*girl)
  876. OR
  877. Present 311 (*guy)
  878. GoToRoom 27
  879. ChangePassageway 3 48
  880. PrintMessage 57 (*blade fell)
  881. BlankLine
  882. GoToRoom 48
  883. DoneWithTurn
  884. END_COMMAND
  885.  
  886. COMMAND EAST ANY
  887. FlagOFF 19 (*rat)
  888. AtLocation 14
  889. SendToRoom 306 44
  890. END_COMMAND
  891.  
  892. COMMAND EAST ANY
  893. FlagOFF 21 (*rat)
  894. AtLocation 29
  895. SendToRoom 306 30
  896. END_COMMAND
  897.  
  898. COMMAND EAST ANY
  899. FlagOFF 24 (*rat)
  900. AtLocation 37
  901. SendToRoom 306 38
  902. END_COMMAND
  903.  
  904. COMMAND EAST ANY
  905. FlagON 14
  906. ReDirectTo COMMANDS DRAWER
  907. END_COMMAND
  908.  
  909. COMMAND DOWN ANY
  910. IsCarrying 293 (*chest)
  911. AtLocation 59 (*stairs)
  912. OR
  913. AtLocation 89 (*rehearse)
  914. IsOpen 228 (*hatch)
  915. PrintMessage 196 (*won't fit)
  916. BlankLine
  917. LookAtRoom
  918. DoneWithTurn
  919. END_COMMAND
  920.  
  921. COMMAND DOWN ANY
  922. FlagOFF 18 (*rat)
  923. AtLocation 89
  924. SendToRoom 306 24
  925. END_COMMAND
  926.  
  927. COMMAND DOWN ANY
  928. AtLocation 89
  929. IsOpen 228
  930. CounterGT 1 0
  931. TurnCounterOFF 1 (*fire)
  932. TurnFlagOFF 10 (*fire)
  933. GoToRoom 24 (*cave)
  934. PrintMessage 66 (*fire safe)
  935. BlankLine
  936. PlusScore 100
  937. DoneWithTurn
  938. END_COMMAND
  939.  
  940. COMMAND DOWN ANY
  941. AtLocation 89
  942. IsOpen 228
  943. GoToRoom 24 (*cave)
  944. DoneWithTurn
  945. END_COMMAND
  946.  
  947. COMMAND DOWN ANY
  948. IsWearing 238
  949. AtLocation 69
  950. OR
  951. AtLocation 79
  952. OR
  953. AtLocation 93
  954. OR
  955. AtLocation 59
  956. OR
  957. AtLocation 33
  958. OR
  959. AtLocation 16
  960. OR
  961. AtLocation 62
  962. OR
  963. AtLocation 58
  964. PrintMessage 213
  965. BlankLine
  966. END_COMMAND
  967.  
  968. COMMAND UP ANY
  969. AtLocation 76 (*stairs)
  970. IsCarrying 293 (*chest)
  971. PrintMessage 196 (*won't fit)
  972. BlankLine
  973. LookAtRoom
  974. DoneWithTurn
  975. END_COMMAND
  976.  
  977. COMMAND UP ANY
  978. AtLocation 37 (*end of hall)
  979. VariableEquals 7 0 (*in round 1)
  980. PrintMessage 144 (*end round 1)
  981. BlankLine
  982. AddToVariable 7 1
  983. SwapLocations 210 296 (*stage doors)
  984. PlusScore 1000
  985. LookAtRoom
  986. DoneWithTurn
  987. END_COMMAND
  988.  
  989. COMMAND SHOUT
  990. ToggleFlag 1
  991. FlagOFF 1
  992. TONE 1397 300
  993. END_COMMAND
  994.  
  995. COMMAND DARN ANY
  996. NOT AtLocation 40
  997. PrintMessage 99
  998. BlankLine
  999. MinusScore 100
  1000. DoneWithTurn
  1001. END_COMMAND
  1002.  
  1003. COMMAND FONDLE ANY
  1004. NOT AtLocation 40
  1005. NOT NOUNPresent
  1006. PrintMessage 93
  1007. BlankLine
  1008. DoneWithTurn
  1009. END_COMMAND
  1010.  
  1011. COMMAND FONDLE ANY
  1012. NOT AtLocation 40
  1013. NOUNIsNumber 309 (*girl)
  1014. OR
  1015. NOUNIsNumber 311 (*guy)
  1016. PrintMessage 188
  1017. BlankLine
  1018. DoneWithTurn
  1019. END_COMMAND
  1020.  
  1021. COMMAND FONDLE ANY
  1022. NOT AtLocation 40
  1023. NOUNIsNumber 301 (*Mary)
  1024. OR
  1025. NOUNIsNumber 310 (*princess)
  1026. OR
  1027. NOUNIsNumber 312 (*prince)
  1028. PrintMessage 76
  1029. BlankLine
  1030. DoneWithTurn
  1031. END_COMMAND
  1032.  
  1033. COMMAND FONDLE ANY
  1034. NOT AtLocation 40
  1035. NOUNIsCreature
  1036. PrintMessage 37
  1037. BlankLine
  1038. DoneWithTurn
  1039. END_COMMAND
  1040.  
  1041. COMMAND FONDLE ANY
  1042. NOT AtLocation 40
  1043. PrintMessage 1
  1044. BlankLine
  1045. DoneWithTurn
  1046. END_COMMAND
  1047.  
  1048. COMMAND BREAK A LEG
  1049. SendToRoom 223 1
  1050. PrintMessage 7
  1051. BlankLine
  1052. DoneWithTurn
  1053. END_COMMAND
  1054.  
  1055. COMMAND BREAK ANY
  1056. PrintMessage 13
  1057. Delay 5
  1058. PrintMessage 14
  1059. END_COMMAND
  1060.  
  1061. COMMAND KICK BUCKET
  1062. Present 254
  1063. PrintMessage 98
  1064. BlankLine
  1065. DoneWithTurn
  1066. END_COMMAND
  1067.  
  1068. COMMAND MOVE CHAIR
  1069. VariableGT 11 0
  1070. Present 206 (*chair)
  1071. Present 243 (*policy)
  1072. GoToRoom 101 (*hall)
  1073. ChangePassageway 2 102
  1074. Destroy 290 (*door)
  1075. Destroy 206 (*chair)
  1076. PrintMessage 151
  1077. Printmessage 40
  1078. BlankLine
  1079. PlusScore 100
  1080. DoneWithTurn
  1081. END_COMMAND
  1082.  
  1083. COMMAND MOVE CHAIR
  1084. Not Present 243
  1085. Present 206
  1086. PrintMessage 151
  1087. PrintMessage 39 (*no insurance)
  1088. ReDirectTo COMMANDS DRAWER
  1089. END_COMMAND
  1090.  
  1091. COMMAND MOVE CHAIR
  1092. Present 206
  1093. PrintMessage 151
  1094. PrintMessage 220 (*expired)
  1095. ReDirectTo COMMANDS DRAWER
  1096. END_COMMAND
  1097.  
  1098. COMMAND MAGIC_WORD SESAME
  1099. AtLocation 24
  1100. SendToRoom 223 1
  1101. END_COMMAND
  1102.  
  1103. COMMAND UNLOCK CHEST WITH KEY
  1104. Present 293
  1105. Present 246
  1106. IsLocked 293
  1107. SendToRoom 313 293
  1108. END_COMMAND
  1109.  
  1110. COMMAND OPEN SESAME
  1111. PrintMessage 43
  1112. BlankLine
  1113. DoneWithTurn
  1114. END_COMMAND
  1115.  
  1116. COMMAND OPEN DOORS
  1117. SomethingInside 298
  1118. AtLocation 44
  1119. OR
  1120. AtLocation 14
  1121. PrintMessage 92 (*door stuck)
  1122. BlankLine
  1123. AtLocation 44
  1124. NOT Present 286 (*cable)
  1125. GoToRoom 100
  1126. PrintMessage 240 (*saved)
  1127. BlankLine
  1128. DoneWithTurn
  1129. END_COMMAND
  1130.  
  1131. COMMAND OPEN DOORS
  1132. NOT SomethingInside 298
  1133. AtLocation 14
  1134. OR
  1135. AtLocation 44
  1136. OpenIt 217
  1137. PrintMessage 95
  1138. BlankLine
  1139. DoneWithTurn
  1140. END_COMMAND
  1141.  
  1142. COMMAND OPEN DOOR
  1143. AtLocation 44
  1144. OR
  1145. AtLocation 106
  1146. RedirectTo OPEN DOORS
  1147. END_COMMAND
  1148.  
  1149. COMMAND OPEN HATCH ANY
  1150. NOUNPresent
  1151. Present 309
  1152. OR
  1153. Present 311
  1154. OpenIt 228 (*hatch)
  1155. PrintMessage 61
  1156. BlankLine
  1157. DoneWithTurn
  1158. END_COMMAND
  1159.  
  1160. COMMAND OPEN HATCH ANY
  1161. NOUNPresent
  1162. PrintMessage 59 (*too heavy)
  1163. BlankLine
  1164. DoneWithTurn
  1165. END_COMMAND
  1166.  
  1167. COMMAND PRY WINDOW WITH CROWBAR
  1168. NOUNPresent
  1169. ObjectPresent
  1170. OpenIt 279
  1171. destroy 212
  1172. PrintMessage 82 (*opens)
  1173. BlankLine
  1174. PlusScore 100
  1175. DoneWithTurn
  1176. END_COMMAND
  1177.  
  1178. COMMAND PRY WINDOW
  1179. NOUNPresent
  1180. PrintMessage 209
  1181. BlankLine
  1182. DoneWithTurn
  1183. END_COMMAND
  1184.  
  1185. COMMAND PRY CRATE WITH CROWBAR
  1186. NOUNPresent
  1187. ObjectPresent
  1188. IsClosed 251
  1189. OpenIt 251
  1190. PrintMessage 32 (*opens)
  1191. BlankLine
  1192. PlusScore 100
  1193. LookAtRoom
  1194. DoneWithTurn
  1195. END_COMMAND
  1196.  
  1197. COMMAND PRY CRATE WITH CROWBAR
  1198. NOUNPresent
  1199. ObjectPresent
  1200. PrintMessage 154 (*already open)
  1201. BlankLine
  1202. DoneWithTurn
  1203. END_COMMAND
  1204.  
  1205. COMMAND PRY CRATE
  1206. NOUNPresent
  1207. PrintMessage 209
  1208. BlankLine
  1209. DoneWithTurn
  1210. END_COMMAND
  1211.  
  1212. COMMAND GIVE ANY
  1213. NOT NOUNPresent
  1214. PrintMessage 93
  1215. BlankLine
  1216. DoneWithTurn
  1217. END_COMMAND
  1218.  
  1219. COMMAND GIVE ANY
  1220. NOUNIsCreature
  1221. PrintMessage 5 (*smooth move)
  1222. BlankLine
  1223. DoneWithTurn
  1224. END_COMMAND
  1225.  
  1226. COMMAND GIVE ANY
  1227. NOT OBJECTPresent
  1228. PrintMessage 210
  1229. BlankLine
  1230. DoneWithTurn
  1231. END_COMMAND
  1232.  
  1233. COMMAND GIVE ANY TO MARY
  1234. PrintMessage 136
  1235. BlankLine
  1236. DoneWithTurn
  1237. END_COMMAND
  1238.  
  1239. COMMAND GIVE ANY TO PACKRAT
  1240. NOUNIsNumber 221 (*dim bulb)
  1241. OR
  1242. NOUNIsNumber 234 (*apple)
  1243. OR
  1244. NOUNIsNumber 273 (*steak)
  1245. TurnFlagON 8
  1246. MinusScore 300
  1247. END_COMMAND
  1248.  
  1249. COMMAND GIVE ANY TO PACKRAT
  1250. NOUNIsNumber 235 (*oilcan)
  1251. OR
  1252. NOUNIsNumber 252 (*lamp)
  1253. OR
  1254. NOUNIsNumber 267 (*ring)
  1255. OR
  1256. NOUNIsNumber 281 (*sign)
  1257. OR
  1258. NOUNIsNumber 236 (*quarter)
  1259. TurnFlagON 8
  1260. MinusScore 1100
  1261. END_COMMAND
  1262.  
  1263. COMMAND GIVE ANY TO PACKRAT
  1264. AtLocation 24
  1265. PutInCurrentRoom 246 (*give KEY)
  1266. TurnFlagON 18
  1267. TurnFlagON 25
  1268. END_COMMAND
  1269.  
  1270. COMMAND GIVE ANY TO PACKRAT
  1271. FlagOFF 25
  1272. NOUNIsNumber 229 (*hotdog)
  1273. OR
  1274. NOUNIsNumber 232 (*knife)
  1275. OR
  1276. NOUNIsNumber 258 (*hat)
  1277. OR
  1278. NOUNIsNumber 280 (*secret)
  1279. OR
  1280. NOUNIsNumber 292 (*1/2 hotdog)
  1281. TurnFlagON 8
  1282. MinusScore 1100
  1283. END_COMMAND
  1284.  
  1285. COMMAND GIVE ANY TO PACKRAT
  1286. AtLocation 20
  1287. PutInCurrentRoom 236 (*give QUARTER)
  1288. TurnFlagON 22
  1289. TurnFlagON 25
  1290. END_COMMAND
  1291.  
  1292. COMMAND GIVE ANY TO PACKRAT
  1293. AtLocation 38
  1294. PutInCurrentRoom 207 (*give BOTTLE)
  1295. TurnFlagON 24
  1296. TurnFlagON 25
  1297. END_COMMAND
  1298.  
  1299. COMMAND GIVE ANY TO PACKRAT
  1300. FlagOFF 25
  1301. NOUNIsNumber 297 (*trumpet)
  1302. TurnFlagON 8
  1303. MinusScore 1100
  1304. END_COMMAND
  1305.  
  1306. COMMAND GIVE ANY TO PACKRAT
  1307. AtLocation 30
  1308. PutInCurrentRoom 226 (*give CUTTER)
  1309. TurnFlagON 21
  1310. TurnFlagON 25
  1311. END_COMMAND
  1312.  
  1313. COMMAND GIVE ANY TO PACKRAT
  1314. FlagOFF 25
  1315. NOUNIsNumber 231 (*makeup)
  1316. OR
  1317. NOUNIsNumber 279 (*window)
  1318. OR
  1319. NOUNIsNumber 286 (*cable)
  1320. TurnFlagON 8
  1321. MinusScore 1100
  1322. END_COMMAND
  1323.  
  1324. COMMAND GIVE ANY TO PACKRAT
  1325. AtLocation 31
  1326. PutInCurrentRoom 235 (*give OILCAN)
  1327. TurnFlagON 17
  1328. TurnFlagON 25
  1329. END_COMMAND
  1330.  
  1331. COMMAND GIVE ANY TO PACKRAT
  1332. FlagOFF 25
  1333. NOUNIsNumber 211 (*bugle)
  1334. OR
  1335. NOUNIsNumber 250 (*skate)
  1336. OR
  1337. NOUNIsNumber 251 (*crate)
  1338. OR
  1339. NOUNIsNumber 254 (*bucket)
  1340. OR
  1341. NOUNIsNumber 261 (*muliplication table)
  1342. OR
  1343. NOUNIsNumber 265 (*Pluto)
  1344. TurnFlagON 8
  1345. MinusScore 1100
  1346. END_COMMAND
  1347.  
  1348. COMMAND GIVE ANY TO PACKRAT
  1349. AtLocation 56
  1350. PutInCurrentRoom 297 (*give TRUMPET)
  1351. TurnFlagON 20
  1352. END_COMMAND
  1353.  
  1354. COMMAND GIVE ANY TO PACKRAT
  1355. AtLocation 44
  1356. PutInCurrentRoom 211 (*give BUGLE)
  1357. TurnFlagON 19
  1358. TurnCounterON 8
  1359. END_COMMAND
  1360.  
  1361. COMMAND GIVE ANY TO PACKRAT
  1362. AtLocation 109
  1363. PutInCurrentRoom 250 (*give SKATE)
  1364. TurnFlagON 15
  1365. END_COMMAND
  1366.  
  1367. COMMAND GIVE ANY TO PACKRAT
  1368. AtLocation 9
  1369. PutInCurrentRoom 258 (*give HAT)
  1370. TurnFlagON 23
  1371. TurnFlagON 25
  1372. END_COMMAND
  1373.  
  1374. COMMAND GIVE ANY TO PACKRAT
  1375. AtLocation 87
  1376. PutInCurrentRoom 252 (*give LAMP)
  1377. TurnFlagON 16
  1378. TurnFlagON 25
  1379. END_COMMAND
  1380.  
  1381. COMMAND GIVE ANY TO PACKRAT
  1382. FlagOFF 8
  1383. PrintMessage 36
  1384. BlankLine
  1385. END_COMMAND
  1386.  
  1387. COMMAND GIVE ANY TO PACKRAT
  1388. FlagON 8
  1389. FlagOFF 1
  1390. TONE 65 500
  1391. TONE 73 100
  1392. TONE 78 300
  1393. TONE 65 300
  1394. END_COMMAND
  1395.  
  1396. COMMAND GIVE ANY TO PACKRAT
  1397. FlagON 8
  1398. PrintMessage 219
  1399. BlankLine
  1400. TurnFlagOFF 8
  1401. END_COMMAND
  1402.  
  1403. COMMAND GIVE ANY TO PACKRAT
  1404. PlusScore 100
  1405. DestroyNoun
  1406. Destroy 306
  1407. TurnFlagOFF 25
  1408. LookAtRoom
  1409. DoneWithTurn
  1410. END_COMMAND
  1411.  
  1412. COMMAND GIVE SKATE TO GENIE
  1413. Present 302 (*genie #2)
  1414. destroy 302
  1415. destroy 250
  1416. SendToRoom 273 1 (*give
  1417. PrintMessage 27 (*steak)
  1418. BlankLine
  1419. PlusScore 100
  1420. LookAtRoom
  1421. DoneWithTurn
  1422. END_COMMAND
  1423.  
  1424. COMMAND GIVE ANY TO GENIE
  1425. Present 302
  1426. NOT NOUNWeightEquals 9
  1427. PrintMessage 46 (*reject)
  1428. PrintMessage 203 (*unwearable)
  1429. BlankLine
  1430. DoneWithTurn
  1431. END_COMMAND
  1432.  
  1433. COMMAND GIVE ANY TO GENIE
  1434. Present 302
  1435. PrintMessage 46
  1436. PrintMessage 201 (*size)
  1437. BlankLine
  1438. DoneWithTurn
  1439. END_COMMAND
  1440.  
  1441. COMMAND GIVE BUGLE TO GENIE
  1442. present 303 (*genie #3)
  1443. destroy 303
  1444. destroy 211
  1445. SetVariableTo 3 4 (*done with catwalk)
  1446. GoToRoom 83
  1447. changepassageway 3 65
  1448. changepassageway 4 63
  1449. GoToRoom 65
  1450. PrintMessage 30 (*bugle)
  1451. BlankLine
  1452. PlusScore 100
  1453. DoneWithTurn
  1454. END_COMMAND
  1455.  
  1456. COMMAND GIVE TRUMPET TO GENIE
  1457. Present 303
  1458. PrintMessage 46
  1459. PrintMessage 202 (*can't play)
  1460. BlankLine
  1461. DoneWithTurn
  1462. END_COMMAND
  1463.  
  1464. COMMAND GIVE ANY TO GENIE
  1465. Present 303
  1466. PrintMessage 46
  1467. PrintMessage 204 (*unplayable)
  1468. BlankLine
  1469. DoneWithTurn
  1470. END_COMMAND
  1471.  
  1472. COMMAND GIVE RECLAIM TO GENIE
  1473. Present 304 (*genie #3)
  1474. PrintMessage 34 (*win)
  1475. BlankLine
  1476. PlusScore 5000
  1477. PrintMessage 238
  1478. WinGame
  1479. DoneWithTurn
  1480. END_COMMAND
  1481.  
  1482. COMMAND GIVE RING TO GIRL
  1483. VariableEquals 6 1 (*played tape)
  1484. Destroy 267
  1485. PrintMessage 137 (*in mood)
  1486. BlankLine
  1487. AddToVariable 6 1
  1488. PlusScore 100
  1489. DoneWithTurn
  1490. END_COMMAND
  1491.  
  1492. COMMAND GIVE RING TO GIRL
  1493. CounterGT 4 0 (*bathroom)
  1494. PrintMessage 132 (*bath)
  1495. BlankLine
  1496. DoneWithTurn
  1497. END_COMMAND
  1498.  
  1499. COMMAND GIVE RING TO GIRL
  1500. CounterGT 5 0 (*thirsty)
  1501. PrintMessage 131
  1502. BlankLine
  1503. DoneWithTurn
  1504. END_COMMAND
  1505.  
  1506. COMMAND GIVE RING TO GIRL
  1507. PrintMessage 136 (*ok/not in mood)
  1508. BlankLine
  1509. DoneWithTurn
  1510. END_COMMAND
  1511.  
  1512. COMMAND GIVE RING TO GUY
  1513. VariableEquals 6 1 (*played tape)
  1514. Destroy 267
  1515. PrintMessage 137 (*in mood)
  1516. BlankLine
  1517. AddToVariable 6 1
  1518. PlusScore 100
  1519. DoneWithTurn
  1520. END_COMMAND
  1521.  
  1522. COMMAND GIVE RING TO GUY
  1523. CounterGT 4 0 (*bathroom)
  1524. PrintMessage 132 (*bath)
  1525. BlankLine
  1526. DoneWithTurn
  1527. END_COMMAND
  1528.  
  1529. COMMAND GIVE RING TO GUY
  1530. CounterGT 5 0 (*thirsty)
  1531. PrintMessage 131
  1532. BlankLine
  1533. DoneWithTurn
  1534. END_COMMAND
  1535.  
  1536. COMMAND GIVE RING TO GUY
  1537. PrintMessage 136 (*ok/not in mood)
  1538. BlankLine
  1539. DoneWithTurn
  1540. END_COMMAND
  1541.  
  1542. COMMAND GIVE DRINK TO GIRL
  1543. destroy 257
  1544. PrintMessage 122
  1545. BlankLine
  1546. TurnCounterOFF 5 (*thirsty)
  1547. TurnCounterOn 4 (*bathroom)
  1548. DoneWithTurn
  1549. END_COMMAND
  1550.  
  1551. COMMAND GIVE DRINK TO GUY
  1552. destroy 257
  1553. PrintMessage 162
  1554. BlankLine
  1555. TurnCounterOFF 5 (*thirsty)
  1556. TurnCounterOn 4 (*bathroom)
  1557. DoneWithTurn
  1558. END_COMMAND
  1559.  
  1560. COMMAND GIVE HOTDOG TO CAT
  1561. Present 300 (*cat)
  1562. Destroy 300
  1563. SendToRoom 305 20  (*happycat)
  1564. SwapLocations 229 292 (*hotdogs)
  1565. Printmessage 47
  1566. BlankLine
  1567. PlusScore 100
  1568. LookAtRoom
  1569. DoneWithTurn
  1570. END_COMMAND
  1571.  
  1572. COMMAND GIVE HOTDOG TO TOAD
  1573. Destroy 292
  1574. SwapLocations 307 308 (*toad)
  1575. Printmessage 48
  1576. BlankLine
  1577. PlusScore 100
  1578. LookAtRoom
  1579. DoneWithTurn
  1580. END_COMMAND
  1581.  
  1582. COMMAND GIVE ANY TO ANY
  1583. OBJECTIsCreature
  1584. PrintMessage 46
  1585. BlankLine
  1586. DoneWithTurn
  1587. END_COMMAND
  1588.  
  1589. COMMAND GIVE ANY
  1590. PrintMessage 205
  1591. BlankLine
  1592. DoneWithTurn
  1593. END_COMMAND
  1594.  
  1595. COMMAND DRINK DRINK
  1596. Present 257 (*drink)
  1597. NOT Present 311 (*guy)
  1598. NOT Present 309 (*girl)
  1599. PrintMessage 123 (*drink)
  1600. BlankLine
  1601. MinusScore 1000
  1602. DoneWithTurn
  1603. END_COMMAND
  1604.  
  1605. COMMAND DRINK DRINK
  1606. Present 257
  1607. PrintMessage 127 (*greedy)
  1608. ReDirectTo COMMANDS DRAWER
  1609. END_COMMAND
  1610.  
  1611. COMMAND DRINK WATER
  1612. Present 274
  1613. OR
  1614. Present 276
  1615. PrintMessage 206
  1616. BlankLine
  1617. DoneWithTurn
  1618. END_COMMAND
  1619.  
  1620. COMMAND DRINK WATER
  1621. Present 275
  1622. OR
  1623. Present 277
  1624. PrintMessage 207
  1625. BlankLine
  1626. DoneWithTurn
  1627. END_COMMAND
  1628.  
  1629. COMMAND DRINK ANY
  1630. NOUNPresent
  1631. NOUNIsCreature
  1632. PrintMessage 2
  1633. BlankLine
  1634. DoneWithTurn
  1635. END_COMMAND
  1636.  
  1637. COMMAND OIL WATER
  1638. ReDirectTo POUR OIL
  1639. END_COMMAND
  1640.  
  1641. COMMAND OIL HINGES
  1642. Present 216 (*door)
  1643. Present 235 (*oil)
  1644. PrintMessage 143 (*die)
  1645. ReDirectTo COMMANDS DRAWER
  1646. END_COMMAND
  1647.  
  1648. COMMAND GREASE HINGES
  1649. Present 216 (*door)
  1650. Present 231 (*makeup)
  1651. PrintMessage 150 (*open)
  1652. BlankLine
  1653. Destroy 216
  1654. Destroy 231
  1655. ChangePassageway 3 30
  1656. PlusScore 100
  1657. DoneWithTurn
  1658. END_COMMAND
  1659.  
  1660. COMMAND DISSOLVE GUM
  1661. Present 207
  1662. InRoom 247    (*gum here)
  1663. SwapLocations 247 284 (*note for gum)
  1664. PrintMessage 198 (*gum dissolved)
  1665. BlankLine
  1666. PlusScore 100
  1667. LookAtRoom
  1668. DoneWithTurn
  1669. END_COMMAND
  1670.  
  1671. COMMAND POUR BOTTLE
  1672. Present 207
  1673. InRoom 247    (*gum here)
  1674. SwapLocations 247 284 (*note for gum)
  1675. PrintMessage 198 (*gum dissolved)
  1676. BlankLine
  1677. PlusScore 100
  1678. LookAtRoom
  1679. DoneWithTurn
  1680. END_COMMAND
  1681.  
  1682. COMMAND POUR BOTTLE
  1683. Present 207
  1684. SendToRoom 207 51
  1685. PrintMessage 197 (*bottle in green room)
  1686. BlankLine
  1687. MinusScore 10
  1688. DoneWithTurn
  1689. END_COMMAND
  1690.  
  1691. COMMAND POUR OIL
  1692. NOT NOUNPresent
  1693. PrintMessage 93
  1694. BlankLine
  1695. DoneWithTurn
  1696. END_COMMAND
  1697.  
  1698. COMMAND POUR OIL
  1699. InRoom 274 (*stream)
  1700. OR
  1701. InRoom 276
  1702. SwapLocations 274 275 (*streams)
  1703. SwapLocations 276 277
  1704. PrintMessage 55 (*calm water)
  1705. BlankLine
  1706. Destroy 235
  1707. PlusScore 100
  1708. LookAtRoom
  1709. DoneWithTurn
  1710. END_COMMAND
  1711.  
  1712. COMMAND POUR OIL
  1713. PrintMessage 56  (*oil shoe)
  1714. BlankLine
  1715. MinusScore 10
  1716. END_COMMAND
  1717.  
  1718. COMMAND PUSH ANY
  1719. AtLocation 107
  1720. NOUNIsNumber 255
  1721. IsLocated 298 54
  1722. SendToRoom 298 77
  1723. PrintMessage 3  (*curtain going up)
  1724. BlankLine
  1725. DoneWithTurn
  1726. END_COMMAND
  1727.  
  1728. COMMAND PUSH ANY
  1729. AtLocation 107
  1730. NOUNIsNumber 255
  1731. IsLocated 298 77
  1732. SendToRoom 298 54
  1733. PrintMessage 4  (*curtain going up)
  1734. BlankLine
  1735. DoneWithTurn
  1736. END_COMMAND
  1737.  
  1738. COMMAND TURN HEELS
  1739. NOUNPresent
  1740. Present 317
  1741. Destroy 317
  1742. PrintMessage 225
  1743. BlankLine
  1744. AddToVariable 17 1000
  1745. PrintMessage 238
  1746. Blankline
  1747. TurnCounterOFF 7
  1748. TurnFlagOFF 8
  1749. PrintMessage 244
  1750. BlankLine
  1751. GoToRoom 110
  1752. DoneWithTurn
  1753. END_COMMAND
  1754.  
  1755. COMMAND TURN TABLE
  1756. AtLocation 12
  1757. Present 261
  1758. destroy 261
  1759. PrintMessage 11 (*landslide)
  1760. BlankLine
  1761. GoToRoom 22   (*new storage)
  1762. ChangePassageway 1 7
  1763. PlusScore 100
  1764. DoneWithTurn
  1765. END_COMMAND
  1766.  
  1767. COMMAND TURN KNOB
  1768. Present 289 (*knobless door)
  1769. Present 253 (*knob)
  1770. PrintMessage 38 (*door opens)
  1771. BlankLine
  1772. Destroy 289 (*door)
  1773. ChangePassageway 4 50
  1774. PlusScore 100
  1775. DoneWithTurn
  1776. END_COMMAND
  1777.  
  1778. COMMAND TURN OFF LAMP
  1779. ReDirectTo EXTINGUISH LAMP
  1780. END_COMMAND
  1781.  
  1782. COMMAND TURN ON LAMP
  1783. ReDirectTo LIGHT LAMP
  1784. END_COMMAND
  1785.  
  1786. COMMAND THROW SWITCH
  1787. ReDirectTo LIGHT SWITCH
  1788. END_COMMAND
  1789.  
  1790. COMMAND PULL PLUG
  1791. ReDirectTo EXTINGUISH LAMP
  1792. END_COMMAND
  1793.  
  1794. COMMAND PLUG IN LAMP
  1795. ReDirectTo LIGHT LAMP
  1796. END_COMMAND
  1797.  
  1798. COMMAND PLUG LAMP IN
  1799. ReDirectTo LIGHT LAMP
  1800. END_COMMAND
  1801.  
  1802. COMMAND DROP PLUTO IN CRATE
  1803. ReDirectTo PUT PLUTO IN CRATE
  1804. END_COMMAND
  1805.  
  1806. COMMAND PUT ANY ON COUNTERWEIGHT
  1807. Present 298
  1808. NOUNPresent
  1809. SendNOUNToRoom 298
  1810. PrintMessage 60
  1811. BlankLine
  1812. DoneWithTurn
  1813. END_COMMAND
  1814.  
  1815. COMMAND PUT PLANK ANY
  1816. AtLocation 8 (*gap)
  1817. Present 287 (*plank)
  1818. destroy 287
  1819. PrintMessage 9 (*putting plank down)
  1820. BlankLine
  1821. TurnFlagOn 2
  1822. GoToRoom 15   (*go south)
  1823. PlusScore 100
  1824. DoneWithTurn
  1825. END_COMMAND
  1826.  
  1827. COMMAND PUT SIGN IN MACHINE
  1828. Present 281 (*sign)
  1829. Present 295 (*new machine)
  1830. PutInCurrentRoom 257 (*drink)
  1831. SwapLocations 230 295 (*machines)
  1832. Destroy 281
  1833. PrintMessage 115 (*get drink)
  1834. BlankLine
  1835. PlusScore 100
  1836. LookAtRoom
  1837. DoneWithTurn
  1838. END_COMMAND
  1839.  
  1840. COMMAND PUT SECRET UNDER HAT
  1841. Present 280
  1842. Iswearing 258 (*hat)
  1843. WearIt 280 (*secret)
  1844. TurnFlagOFF 4
  1845. PrintMessage 15
  1846. BlankLine
  1847. DoneWithTurn
  1848. END_COMMAND
  1849.  
  1850. COMMAND PUT SECRET UNDER HAT
  1851. Present 280
  1852. PrintMessage 19
  1853. BlankLine
  1854. DoneWithTurn
  1855. END_COMMAND
  1856.  
  1857. COMMAND PUT SECRET ON HEAD
  1858. SendToRoom 223 1
  1859. ReDirectTo WEAR SECRET
  1860. END_COMMAND
  1861.  
  1862. COMMAND PUT SECRET ON
  1863. NOT Objectpresent
  1864. ReDirectTo WEAR SECRET
  1865. END_COMMAND
  1866.  
  1867. COMMAND PUT BULB IN SOCKET
  1868. Present 272
  1869. Present 221
  1870. IsOpen 271 (*spot open)
  1871. Destroy 221
  1872. SendToRoom 288 272
  1873. PrintMessage 35
  1874. BlankLine
  1875. PlusScore 100
  1876. LookAtRoom
  1877. DoneWithTurn
  1878. END_COMMAND
  1879.  
  1880. COMMAND PUT BULB IN SOCKET
  1881. Present 272
  1882. Present 288
  1883. PrintMessage 173
  1884. BlankLine
  1885. SendToRoom 288 272
  1886. DoneWithTurn
  1887. END_COMMAND
  1888.  
  1889. COMMAND PUT HAT ON HEAD
  1890. SendToRoom 223 1
  1891. ReDirectTo WEAR HAT
  1892. END_COMMAND
  1893.  
  1894. COMMAND PUT HAT ON SECRET
  1895. IsWearing 280
  1896. ReDirectTo WEAR HAT
  1897. END_COMMAND
  1898.  
  1899. COMMAND PUT HAT ON
  1900. NOT ObjectPresent
  1901. ReDirectTo WEAR HAT
  1902. END_COMMAND
  1903.  
  1904. COMMAND PUT KNOB ON DOOR
  1905. Present 289 (*knobless door)
  1906. Present 253 (*knob)
  1907. PrintMessage 38 (*door opens)
  1908. BlankLine
  1909. Destroy 289 (*door)
  1910. ChangePassageway 4 50
  1911. PlusScore 100
  1912. DoneWithTurn
  1913. END_COMMAND
  1914.  
  1915. COMMAND PUT DOOR UNDER DOOR
  1916. Present 220 (*fire door)
  1917. PrintMessage 43 (*not fair)
  1918. BlankLine
  1919. MinusScore 100
  1920. DoneWithTurn
  1921. END_COMMAND
  1922.  
  1923. COMMAND PUT TABLE ON TABLE
  1924. Present 263
  1925. NOUNIsNumber 263
  1926. PrintMessage 102 (*table vanishes)
  1927. BlankLine
  1928. Destroy 263
  1929. LookAtRoom
  1930. DoneWithTurn
  1931. END_COMMAND
  1932.  
  1933. COMMAND PUT CHEST ON TABLE
  1934. Present 293 (*chest)
  1935. Present 263
  1936. PrintMessage 101 (*chest gone)
  1937. ReDirectTo COMMANDS DRAWER
  1938. END_COMMAND
  1939.  
  1940. COMMAND PUT ANY ON TABLE
  1941. FlagOFF 1
  1942. Present 263
  1943. NOUNPresent
  1944. TONE 1397 300
  1945. TONE 2093 300
  1946. TONE 1047 100
  1947. TONE 1175 100
  1948. TONE 1319 100
  1949. TONE 1397 300
  1950. END_COMMAND
  1951.  
  1952. COMMAND PUT ANY ON TABLE
  1953. FlagOFF 1
  1954. Present 263
  1955. NOUNPresent
  1956. TONE 2093 300
  1957. TONE 1047 100
  1958. TONE 1175 100
  1959. TONE 1319 100
  1960. TONE 1397 600
  1961. PrintMessage 100 (*vanish)
  1962. BlankLine
  1963. SendNOUNToRoom 94
  1964. DoneWithTurn
  1965. END_COMMAND
  1966.  
  1967. COMMAND PROP DOOR WITH ANY
  1968. Present 220
  1969. PrintMessage 44 (*rephrase)
  1970. BlankLine
  1971. DoneWithTurn
  1972. END_COMMAND
  1973.  
  1974. COMMAND PUT ANY UNDER DOOR
  1975. Present 220
  1976. NOUNPresent
  1977. NOUNIsCreature
  1978. PrintMessage 5 (*smooth move)
  1979. BlankLine
  1980. MinusScore 200
  1981. DoneWithTurn
  1982. END_COMMAND
  1983.  
  1984. COMMAND PUT ANY UNDER DOOR
  1985. Present 220 (*fire door)
  1986. NOUNPresent
  1987. DestroyNOUN
  1988. SwapLocations 220 291
  1989. ChangePassageway 4 68 (*change halls)
  1990. PrintMessage 41 (*prop door)
  1991. BlankLine
  1992. PlusScore 100
  1993. LookAtRoom
  1994. DoneWithTurn
  1995. END_COMMAND
  1996.  
  1997. COMMAND PUT TAPE ON RECORDER
  1998. Present 241 (*tape)
  1999. Present 266 (*deck)
  2000. SendNOUNToRoom 266
  2001. PrintMessage 140 (*in for good)
  2002. BlankLine
  2003. DoneWithTurn
  2004. END_COMMAND
  2005.  
  2006. COMMAND PUT PLUTO IN CRATE
  2007. Present 251 (*crate)
  2008. Present 265 (*pluto)
  2009. IsClosed 251
  2010. Destroy 265
  2011. PrintMessage 148 (*shatter)
  2012. BlankLine
  2013. MinusScore 1000
  2014. DoneWithTurn
  2015. END_COMMAND
  2016.  
  2017. COMMAND PUT PLUTO IN CRATE
  2018. Present 251
  2019. Present 265
  2020. Destroy 265
  2021. SendToRoom 261 251
  2022. PrintMessage 149
  2023. BlankLine
  2024. PlusScore 100
  2025. DoneWithTurn
  2026. END_COMMAND
  2027.  
  2028. COMMAND PUT MAKEUP ON HINGES
  2029. ReDirectTo GREASE HINGES
  2030. END_COMMAND
  2031.  
  2032. COMMAND PUT BUCKET ON
  2033. SendToRoom 223 1
  2034. ReDirectTo WEAR BUCKET
  2035. END_COMMAND
  2036.  
  2037. COMMAND PUT QUARTER
  2038. Present 236 (*quarter)
  2039. Present 230 (*drink machine)
  2040. IsNowhere 243 (*policy)
  2041. Destroy 236
  2042. SwapLocations 230 295 (*machines)
  2043. PrintMessage 112 (*second panel lit)
  2044. BlankLine
  2045. MinusScore 1000
  2046. DoneWithTurn
  2047. END_COMMAND
  2048.  
  2049. COMMAND PUT QUARTER
  2050. Present 236 (*quarter)
  2051. Present 230 (*drink machine)
  2052. IsSomewhere 243
  2053. Destroy 236
  2054. SwapLocations 230 295 (*machines)
  2055. PrintMessage 112 (*second panel lit)
  2056. BlankLine
  2057. PlusScore 100
  2058. DoneWithTurn
  2059. END_COMMAND
  2060.  
  2061. COMMAND PUT QUARTER
  2062. Present 236
  2063. Present 242 (*vending machine)
  2064. FlagOFF 5 (*not policy)
  2065. PutInCurrentRoom 236
  2066. PutInCurrentRoom 243 (*policy
  2067. TurnFlagON 5 (*got policy)
  2068. SetVariableTo 11 100 (*expiration date)
  2069. PrintMessage 113
  2070. BlankLine
  2071. PlusScore 100
  2072. LookAtRoom
  2073. DoneWithTurn
  2074. END_COMMAND
  2075.  
  2076. COMMAND PUT QUARTER
  2077. Present 236
  2078. Present 242
  2079. FlagON 5 (*policy dispenced)
  2080. PutInCurrentRoom 236
  2081. PrintMessage 114 (*empty)
  2082. BlankLine
  2083. LookAtRoom
  2084. DoneWithTurn
  2085. END_COMMAND
  2086.  
  2087. COMMAND SCREW ANY
  2088. NOT Present 220 (*fire door)
  2089. NOUNPresent
  2090. NOUNIsCreature
  2091. PrintMessage 75
  2092. BlankLine
  2093. DoneWithTurn
  2094. END_COMMAND
  2095.  
  2096. COMMAND BUY DRINK
  2097. RedirectTo PUT QUARTER IN MACHINE
  2098. END_COMMAND
  2099.  
  2100. COMMAND BUY POLICY
  2101. ReDirectTo PUT QUARTER IN MACHINE
  2102. END_COMMAND
  2103.  
  2104. COMMAND WEAR HAT
  2105. Present 258 (*hat)
  2106. IsWearing 280 (*secret)
  2107. TurnFlagOFF 4
  2108. PrintMessage 15 (*put hat over secret)
  2109. WearNOUN
  2110. BlankLine
  2111. END_COMMAND
  2112.  
  2113. COMMAND WEAR SECRET
  2114. Present 280
  2115. Not IsWearing 280
  2116. Not IsWearing 258 (*hat)
  2117. PrintMessage 16 (*balance secret on head)
  2118. TurnFlagON 4
  2119. WearNOUN
  2120. DoneWithTurn
  2121. END_COMMAND
  2122.  
  2123. COMMAND WEAR SECRET
  2124. Present 280
  2125. Not IsWearing 280
  2126. IsWearing 258
  2127. PrintMessage 17 (*balance secret on hat)
  2128. TurnFlagON 4
  2129. WearNOUN
  2130. DoneWithTurn
  2131. END_COMMAND
  2132.  
  2133. COMMAND MARRY MARY
  2134. Present 301 (*Mary)
  2135. destroy 301
  2136. SendToRoom 265 1 (*carry pluto)
  2137. PrintMessage 20  (*mary to pluto)
  2138. BlankLine
  2139. PlusScore 100
  2140. DoneWithTurn
  2141. END_COMMAND
  2142.  
  2143. COMMAND MARRY RECORDER
  2144. FlagOFF 1
  2145. TONE 523 1000
  2146. TONE 699 750
  2147. TONE 699 250
  2148. TONE 699 1000
  2149. TONE 523 1000
  2150. TONE 784 750
  2151. TONE 659 250
  2152. TONE 699 1000
  2153. DoneWithTurn
  2154. END_COMMAND
  2155.  
  2156. COMMAND MARRY ANY
  2157. ReDirectTo PROPOSE TO $NOUN$
  2158. END_COMMAND
  2159.  
  2160. COMMAND SHAKE SPEAR
  2161. Present 270
  2162. SwapLocations 270 254 (*spear/bucket)
  2163. PrintMessage 22 (*pun)
  2164. BlankLine
  2165. PlusScore 100
  2166. LookAtRoom
  2167. DoneWithTurn
  2168. END_COMMAND
  2169.  
  2170. COMMAND RUB LAMP
  2171. Present 252 (*lamp)
  2172. VariableEquals 3 0 (*no appearance yet)
  2173. PrintMessage 23 (*1st appearance)
  2174. BlankLine
  2175. SetVariableTo 3 1
  2176. PlusScore 100
  2177. DoneWithTurn
  2178. END_COMMAND
  2179.  
  2180. COMMAND LIGHT ANY
  2181. NOT NOUNPresent
  2182. PrintMessage 93
  2183. BlankLine
  2184. DoneWithTurn
  2185. END_COMMAND
  2186.  
  2187. COMMAND LIGHT LAMP
  2188. VariableEquals 3 0 (*no appearance yet)
  2189. PrintMessage 24 (*light lamp)
  2190. PrintMessage 25 (*torched)
  2191. RedirectTo COMMANDS DRAWER
  2192. END_COMMAND
  2193.  
  2194. COMMAND LIGHT LAMP
  2195. IsOff 252
  2196. PrintMessage 24
  2197. BlankLine
  2198. END_COMMAND
  2199.  
  2200. COMMAND EXTINGUISH ANY
  2201. NOT NOUNPresent
  2202. PrintMessage 93
  2203. BlankLine
  2204. DoneWithTurn
  2205. END_COMMAND
  2206.  
  2207. COMMAND BLOW BOILER
  2208. IsSomewhere 284 (*note)
  2209. Present 201 (*boiler)
  2210. GoToRoom 26
  2211. ChangePassageway 4 45 (*new boiler room)
  2212. GoToRoom 45
  2213. PrintMessage 42 (*blow boiler)
  2214. BlankLine
  2215. PlusScore 100
  2216. DoneWithTurn
  2217. END_COMMAND
  2218.  
  2219. COMMAND BLOW BOILER
  2220. Present 201 (*boiler)
  2221. PrintMessage 111 (*no blow)
  2222. BlankLine
  2223. DoneWithTurn
  2224. END_COMMAND
  2225.  
  2226. COMMAND BLOW ANY
  2227. NOUNPresent
  2228. NOUNIsCreature
  2229. PrintMessage 75
  2230. BlankLine
  2231. DoneWithTurn
  2232. END_COMMAND
  2233.  
  2234. COMMAND TAKE HAT OFF ANY
  2235. IsWearing 258
  2236. GetIt 258
  2237. TurnFlagON 4
  2238. END_COMMAND
  2239.  
  2240. COMMAND REMOVE HAT
  2241. IsWearing 280 (*secret)
  2242. TurnFlagON 4
  2243. END_COMMAND
  2244.  
  2245. COMMAND TAKE HACKSAW ANY
  2246. IsSomewhere 284 (*note)
  2247. Present 201 (*boiler)
  2248. GoToRoom 26
  2249. ChangePassageway 4 45 (*new boiler room)
  2250. GoToRoom 45
  2251. PrintMessage 42 (*blow boiler)
  2252. BlankLine
  2253. PlusScore 100
  2254. DoneWithTurn
  2255. END_COMMAND
  2256.  
  2257. COMMAND TAKE HACKSAW ANY
  2258. Present 201 (*boiler)
  2259. PrintMessage 111 (*no blow)
  2260. BlankLine
  2261. DoneWithTurn
  2262. END_COMMAND
  2263.  
  2264. COMMAND TAKE TAPE ANY
  2265. Present 266
  2266. SomethingInside 266
  2267. PrintMessage 140 (*in for good)
  2268. BlankLine
  2269. DoneWithTurn
  2270. END_COMMAND
  2271.  
  2272. COMMAND TAKE TABLE ANY
  2273. Present 261 (*mult. table)
  2274. Present 251 (*crate)
  2275. NOUNIsNumber 261
  2276. Destroy 251
  2277. SendToRoom 261 1
  2278. PrintMessage 171
  2279. BlankLine
  2280. DoneWithTurn
  2281. END_COMMAND
  2282.  
  2283. COMMAND FEED HOTDOG TO CAT
  2284. Present 300 (*cat)
  2285. Present 229 (*hotdog)
  2286. SwapLocations 300 305 (*cats)
  2287. SwapLocations 229 292 (*hotdogs)
  2288. Printmessage 47
  2289. BlankLine
  2290. PlusScore 100
  2291. LookAtRoom
  2292. DoneWithTurn
  2293. END_COMMAND
  2294.  
  2295. COMMAND FEED HOTDOG TO TOAD
  2296. Present 307 (*toad)
  2297. Present 292 (*1/2hotdog)
  2298. Destroy 292
  2299. SwapLocations 307 308 (*toad)
  2300. Printmessage 48
  2301. BlankLine
  2302. PlusScore 100
  2303. LookAtRoom
  2304. DoneWithTurn
  2305. END_COMMAND
  2306.  
  2307. COMMAND FEED ANY TO PLANT
  2308. NOUNIsNumber 310
  2309. OR
  2310. NOUNIsNumber 312
  2311. ObjectPresent
  2312. NOUNPresent
  2313. Destroy 314
  2314. PrintMessage 231
  2315. BlankLine
  2316. AddToVariable 17 10000
  2317. PrintMessage 238
  2318. BlankLine
  2319. TurnCounterOFF 7
  2320. TurnFlagOFF 8
  2321. GoToRoom 110
  2322. PrintMessage 168
  2323. BlankLine
  2324. DoneWithTurn
  2325. END_COMMAND
  2326.  
  2327. COMMAND FEED ANY TO PLANT
  2328. ObjectPresent
  2329. NOUNPresent
  2330. NOUNIsNumber 309
  2331. OR
  2332. NOUNIsNumber 311
  2333. PrintMessage 230
  2334. MinusScore 10000
  2335. ReDirectTo COMMANDS DRAWER
  2336. END_COMMAND
  2337.  
  2338. COMMAND FEED ANY
  2339. NOUNPresent
  2340. NOUNIsCreature
  2341. PrintMessage 208
  2342. BlankLine
  2343. DoneWithTurn
  2344. END_COMMAND
  2345.  
  2346. COMMAND FEED ANY
  2347. NOUNPresent
  2348. NOUNIsEdible
  2349. PrintMessage 211
  2350. BlankLine
  2351. DoneWithTurn
  2352. END_COMMAND
  2353.  
  2354. COMMAND FEED ANY
  2355. NOUNPresent
  2356. PrintMessage 94
  2357. BlankLine
  2358. DoneWithTurn
  2359. END_COMMAND
  2360.  
  2361. COMMAND EAT ANY
  2362. NOUNPresent
  2363. NOUNIsCreature
  2364. PrintMessage 2
  2365. BlankLine
  2366. DoneWithTurn
  2367. END_COMMAND
  2368.  
  2369. COMMAND EAT APPLE
  2370. Present 234
  2371. PrintMessage 107 (*apple)
  2372. BlankLine
  2373. Destroy 234
  2374. PlusScore 10
  2375. DoneWithTurn
  2376. END_COMMAND
  2377.  
  2378. COMMAND EAT HOTDOG
  2379. Present 229 (*hotdog)
  2380. or
  2381. Present 292 (*1/2hotdog)
  2382. destroyNOUN
  2383. PrintMessage 45
  2384. BlankLine
  2385. MinusScore 1000
  2386. DoneWithTurn
  2387. END_COMMAND
  2388.  
  2389. COMMAND EAT STEAK
  2390. Present 273
  2391. swaplocations 273 282
  2392. PrintMessage 28
  2393. BlankLine
  2394. DoneWithTurn
  2395. END_COMMAND
  2396.  
  2397. COMMAND CUT ANY WITH ANY
  2398. NOT NOUNPresent
  2399. PrintMessage 93 (*noun not here)
  2400. BlankLine
  2401. DoneWithTurn
  2402. END_COMMAND
  2403.  
  2404. COMMAND CUT MIRROR WITH DIAMOND
  2405. OBJECTPresent
  2406. Destroy 200 (*mirror)
  2407. ChangePassageway 4 35 (*open to hall)
  2408. PrintMessage 104 (*cut)
  2409. BlankLine
  2410. PlusScore 100
  2411. GoToRoom 35
  2412. DoneWithTurn
  2413. END_COMMAND
  2414.  
  2415. COMMAND CUT MIRROR WITH RING
  2416. OBJECTPresent
  2417. PrintMessage 103 (*mirror fall)
  2418. ReDirectTO COMMANDS DRAWER
  2419. END_COMMAND
  2420.  
  2421. COMMAND CUT MIRROR WITH ANY
  2422. PrintMessage 105
  2423. BlankLine
  2424. DoneWithTurn
  2425. END_COMMAND
  2426.  
  2427. COMMAND CUT BOX WITH CUTTER
  2428. NOUNPresent
  2429. OBJECTPresent
  2430. PrintMessage 67 (*open box)
  2431. BlankLine
  2432. OpenIt 248
  2433. PutInCurrentRoom 249
  2434. PlusScore 100
  2435. LookAtRoom
  2436. DoneWithTurn
  2437. END_COMMAND
  2438.  
  2439. COMMAND CUT ROPE WITH KNIFE
  2440. OBJECTPresent
  2441. Destroy 232
  2442. SwapLocations 256 293 (*chests)
  2443. PrintMessage 80 (*success)
  2444. BlankLine
  2445. PlusScore 100
  2446. DoneWithTurn
  2447. END_COMMAND
  2448.  
  2449. COMMAND CUT CHAIN WITH HACKSAW
  2450. OBJECTPresent
  2451. FlagOFF 9
  2452. TurnFlagOn 9
  2453. PrintMessage 85
  2454. BlankLine
  2455. PlusScore 100
  2456. DoneWithTurn
  2457. END_COMMAND
  2458.  
  2459. COMMAND CUT CHAIN WITH HACKSAW
  2460. OBJECTPresent
  2461. PrintMessage 170 (*another link)
  2462. BlankLine
  2463. DoneWithTurn
  2464. MinusScore 10
  2465. END_COMMAND
  2466.  
  2467. COMMAND CUT WINDOW WITH ANY
  2468. PrintMessage 106
  2469. BlankLine
  2470. DoneWithTurn
  2471. END_COMMAND
  2472.  
  2473. COMMAND CUT ANY
  2474. PrintMessage 209
  2475. BlankLine
  2476. DoneWithTurn
  2477. END_COMMAND
  2478.  
  2479. COMMAND KISS CAT
  2480. Present 300
  2481. PrintMessage 68 (*nose nip)
  2482. BlankLine
  2483. DoneWithTurn
  2484. END_COMMAND
  2485.  
  2486. COMMAND KISS CAT
  2487. Present 305
  2488. PrintMessage 69 (*nuzzle)
  2489. BlankLine
  2490. DoneWithTurn
  2491. END_COMMAND
  2492.  
  2493. COMMAND KISS FROG
  2494. Present 307
  2495. PrintMessage 70 (*toad breath)
  2496. BlankLine
  2497. DoneWithTurn
  2498. END_COMMAND
  2499.  
  2500. COMMAND KISS FROG
  2501. Present 308
  2502. VariableEquals 1 155 (*actor)
  2503. PrintMessage 71 (*POOF)
  2504. BlankLine
  2505. SwapLocations 308 309
  2506. TurnCounterON 5
  2507. LookAtRoom
  2508. DoneWithTurn
  2509. END_COMMAND
  2510.  
  2511. COMMAND KISS FROG
  2512. Present 308
  2513. PrintMessage 158 (*POOF)
  2514. BlankLine
  2515. SwapLocations 308 311
  2516. TurnCounterOn 5
  2517. LookAtRoom
  2518. DoneWithTurn
  2519. END_COMMAND
  2520.  
  2521. COMMAND KISS GIRL
  2522. VariableEquals 6 3 (*proposed)
  2523. Present 309
  2524. PrintMessage 139 (*POOF 2)
  2525. BlankLine
  2526. SwapLocations 309 310 (*girl/princess)
  2527. LookAtRoom
  2528. DoneWithTurn
  2529. END_COMMAND
  2530.  
  2531. COMMAND KISS GIRL
  2532. Present 309
  2533. CounterGT 5 25 (*thirsty)
  2534. PrintMessage 131
  2535. BlankLine
  2536. DoneWithTurn
  2537. END_COMMAND
  2538.  
  2539. COMMAND KISS GIRL
  2540. Present 309
  2541. CounterGT 4 0 (*bathroom)
  2542. PrintMessage 132
  2543. BlankLine
  2544. DoneWithTurn
  2545. END_COMMAND
  2546.  
  2547. COMMAND KISS PRINCESS
  2548. Present 310
  2549. PrintMessage 73 (*turn on)
  2550. BlankLine
  2551. DoneWithTurn
  2552. END_COMMAND
  2553.  
  2554. COMMAND KISS GUY
  2555. VariableEquals 6 3 (*proposed)
  2556. Present 311
  2557. PrintMessage 166 (*POOF 2)
  2558. BlankLine
  2559. SwapLocations 311 312 (*guy/prince)
  2560. LookAtRoom
  2561. DoneWithTurn
  2562. END_COMMAND
  2563.  
  2564. COMMAND KISS GUY
  2565. Present 311
  2566. CounterGT 5 25 (*thirsty)
  2567. PrintMessage 131
  2568. BlankLine
  2569. DoneWithTurn
  2570. END_COMMAND
  2571.  
  2572. COMMAND KISS GUY
  2573. Present 311
  2574. CounterGT 4 0 (*bathroom)
  2575. PrintMessage 132
  2576. BlankLine
  2577. DoneWithTurn
  2578. END_COMMAND
  2579.  
  2580. COMMAND KISS ANY
  2581. NOUNPresent
  2582. NOUNIsNumber 311
  2583. OR
  2584. NOUNIsNumber 309
  2585. PrintMessage 72 (*toad breath)
  2586. BlankLine
  2587. DoneWithTurn
  2588. END_COMMAND
  2589.  
  2590. COMMAND KISS PRINCE
  2591. Present 312
  2592. PrintMessage 160 (*turn on)
  2593. BlankLine
  2594. DoneWithTurn
  2595. END_COMMAND
  2596.  
  2597. COMMAND KISS MARY
  2598. NOUNPresent
  2599. PrintMessage 188
  2600. BlankLine
  2601. DoneWithTurn
  2602. END_COMMAND
  2603.  
  2604. COMMAND KISS GENIE
  2605. NOUNPresent
  2606. PrintMessage 74 (*no)
  2607. BlankLine
  2608. MinusScore 10
  2609. DoneWithTurn
  2610. END_COMMAND
  2611.  
  2612. COMMAND KISS TOTO
  2613. NOUNPresent
  2614. PrintMessage 221 (*no 3)
  2615. BlankLine
  2616. DoneWithTurn
  2617. END_COMMAND
  2618.  
  2619. COMMAND KISS ANY
  2620. NounIsCreature
  2621. NOUNPresent
  2622. PrintMessage 75 (*no 2)
  2623. BlankLine
  2624. MinusScore 10
  2625. DoneWithTurn
  2626. END_COMMAND
  2627.  
  2628. COMMAND PROPOSE TO GIRL
  2629. Present 309 (*girl)
  2630. CounterGT 4 0 (*bathroom)
  2631. PrintMessage 132 (*bath)
  2632. BlankLine
  2633. DoneWithTurn
  2634. END_COMMAND
  2635.  
  2636. COMMAND PROPOSE TO GIRL
  2637. Present 309 (*girl)
  2638. CounterGT 5 0 (*thirsty)
  2639. PrintMessage 131 (*bath)
  2640. BlankLine
  2641. DoneWithTurn
  2642. END_COMMAND
  2643.  
  2644. COMMAND PROPOSE TO GIRL
  2645. Present 309 (*girl)
  2646. VariableEquals 6 2 (*gave ring)
  2647. PrintMessage 135 (*accept)
  2648. BlankLine
  2649. AddToVariable 6 1
  2650. PlusScore 100
  2651. DoneWithTurn
  2652. END_COMMAND
  2653.  
  2654. COMMAND PROPOSE TO GIRL
  2655. Present 309 (*girl)
  2656. VariableEquals 6 1 (*no ring)
  2657. PrintMessage 134 (*in mood)
  2658. BlankLine
  2659. DoneWithTurn
  2660. END_COMMAND
  2661.  
  2662. COMMAND PROPOSE TO GIRL
  2663. Present 309 (*girl)
  2664. PrintMessage 133 (*no tape)
  2665. BlankLine
  2666. DoneWithTurn
  2667. END_COMMAND
  2668.  
  2669. COMMAND PROPOSE TO GUY
  2670. Present 311 (*guy)
  2671. CounterGT 4 0 (*bathroom)
  2672. PrintMessage 132 (*bath)
  2673. BlankLine
  2674. DoneWithTurn
  2675. END_COMMAND
  2676.  
  2677. COMMAND PROPOSE TO GUY
  2678. Present 311 (*guy)
  2679. CounterGT 5 0 (*thirsty)
  2680. PrintMessage 131 (*bath)
  2681. BlankLine
  2682. DoneWithTurn
  2683. END_COMMAND
  2684.  
  2685. COMMAND PROPOSE TO GUY
  2686. Present 311 (*guy)
  2687. VariableEquals 6 2 (*gave ring)
  2688. PrintMessage 165 (*accept)
  2689. BlankLine
  2690. PlusScore 100
  2691. AddToVariable 6 1
  2692. DoneWithTurn
  2693. END_COMMAND
  2694.  
  2695. COMMAND PROPOSE TO GUY
  2696. Present 311 (*guy)
  2697. VariableEquals 6 1 (*no ring)
  2698. PrintMessage 134 (*in mood)
  2699. BlankLine
  2700. DoneWithTurn
  2701. END_COMMAND
  2702.  
  2703. COMMAND PROPOSE TO GUY
  2704. Present 311 (*guy)
  2705. PrintMessage 133 (*no tape)
  2706. BlankLine
  2707. DoneWithTurn
  2708. END_COMMAND
  2709.  
  2710. COMMAND PROPOSE ANY
  2711. PrintMessage 210
  2712. BlankLine
  2713. DoneWithTurn
  2714. END_COMMAND
  2715.  
  2716. COMMAND ANSWER PAGER
  2717. FlagON 7
  2718. Present 268
  2719. RandomMessage 232 237
  2720. BlankLine
  2721. TurnFlagOFF 7
  2722. DoneWithTurn
  2723. END_COMMAND
  2724.  
  2725. COMMAND PLAY TRUMPET
  2726. FlagOFF 1
  2727. Present 297
  2728. PrintMessage 108 (*trumpet)
  2729. BlankLine
  2730. TONE 262 200
  2731. TONE 293 200
  2732. TONE 311 200
  2733. TONE 349 200
  2734. TONE 392 200
  2735. TONE 311 200
  2736. END_COMMAND
  2737.  
  2738. COMMAND PLAY TRUMPET
  2739. FlagOFF 1
  2740. Present 297
  2741. TONE 392 400
  2742. TONE 349 200
  2743. TONE 293 200
  2744. TONE 349 400
  2745. TONE 392 200
  2746. TONE 311 200
  2747. TONE 392 400
  2748. END_COMMAND
  2749.  
  2750. COMMAND PLAY TRUMPET
  2751. Present 297
  2752. AtLocation 49
  2753. PrintMessage 91 (*play)
  2754. BlankLine
  2755. TurnFlagON 3 (*trumpet blown)
  2756. TurnCounterOff 2 (*collapse)
  2757. GoToRoom 41 (*Collapsed room)
  2758. PlusScore 100
  2759. DoneWithTurn
  2760. END_COMMAND
  2761.  
  2762. COMMAND PLAY TRUMPET
  2763. Present 297
  2764. DoneWithTurn
  2765. END_COMMAND
  2766.  
  2767. COMMAND PLAY ORGAN
  2768. Present 240
  2769. FlagOFF 1
  2770. TONE 33 1000
  2771. TONE 49 1000
  2772. TONE 46 1000
  2773. TONE 37 1000
  2774. TONE 33 1000
  2775. TONE 39 1000
  2776. TONE 44 1000
  2777. TONE 35 2000
  2778. END_COMMAND
  2779.  
  2780. COMMAND PLAY ORGAN
  2781. Present 240
  2782. PrintMessage 110 (*organ)
  2783. BlankLine
  2784. DoneWithTurn
  2785. END_COMMAND
  2786.  
  2787. COMMAND PLAY BUGLE
  2788. Present 211
  2789. FlagOFF 1
  2790. TONE 262  500
  2791. TONE 294  500
  2792. TONE 330  500
  2793. TONE 349  500
  2794. TONE 392  500
  2795. TONE 440  500
  2796. TONE 494  500
  2797. TONE 523  1000
  2798. END_COMMAND
  2799.  
  2800. COMMAND PLAY BUGLE
  2801. NOT Present 316
  2802. Present 211
  2803. PrintMessage 109 (*bugle)
  2804. BlankLine
  2805. DoneWithTurn
  2806. END_COMMAND
  2807.  
  2808. COMMAND PLAY BUGLE
  2809. NOUNPresent
  2810. Present 316 (*pirate)
  2811. PrintMessage 109
  2812. BlankLine
  2813. Destroy 316
  2814. PrintMessage 224
  2815. BlankLine
  2816. AddToVariable 17 1000
  2817. PrintMessage 238
  2818. Blankline
  2819. TurnCounterOFF 7
  2820. TurnFlagOFF 8
  2821. GotoRoom 110
  2822. DoneWithTurn
  2823. END_COMMAND
  2824.  
  2825. COMMAND PLAY TAPE
  2826. AtLocation 97 (*booth)
  2827. Present 241 (*tape)
  2828. SomethingInside 266
  2829. VariableEquals 6 0 (*not played yet)
  2830. AddToVariable 6 1
  2831. PrintMessage 141 (*wispy look)
  2832. BlankLine
  2833. PlusScore 100
  2834. ReDirectTo MARRY RECORDER
  2835. END_COMMAND
  2836.  
  2837. COMMAND PLAY TAPE
  2838. AtLocation 97 (*booth)
  2839. SomethingInside 266
  2840. PrintMessage 142 (*once again)
  2841. BlankLine
  2842. ReDirectTo MARRY RECORDER
  2843. END_COMMAND
  2844.  
  2845. COMMAND PLAY TAPE
  2846. AtLocation 97
  2847. Present 241
  2848. PrintMessage 138 (*not in deck)
  2849. BlankLine
  2850. DoneWithTurn
  2851. END_COMMAND
  2852.  
  2853. COMMAND PLAY RECORDER
  2854. Present 241
  2855. Present 266
  2856. ReDirectTo PLAY TAPE
  2857. END_COMMAND
  2858.  
  2859. COMMAND SIGN FOR DRINK
  2860. Present 281 (*sign)
  2861. Present 295 (*new machine)
  2862. PutInCurrentRoom 257 (*drink)
  2863. SwapLocations 230 295 (*machines)
  2864. Destroy 281
  2865. PrintMessage 115 (*get drink)
  2866. BlankLine
  2867. PlusScore 100
  2868. LookAtRoom
  2869. DoneWithTurn
  2870. END_COMMAND
  2871.  
  2872. COMMAND LOOK AT DICTIONARY
  2873. AtLocation 81
  2874. PrintMessage 189
  2875. BlankLine
  2876. DoneWithTurn
  2877. END_COMMAND
  2878.  
  2879. COMMAND LOOK UP ANY
  2880. FlagON 13 (*saved)
  2881. AtLocation 81
  2882. CounterGT 3 0
  2883. PrintMessage 195 (*saved)
  2884. BlankLine
  2885. DoneWithTurn
  2886. END_COMMAND
  2887.  
  2888. COMMAND LOOK UP ANY
  2889. AtLocation 81
  2890. CounterGT 3 2
  2891. FlagOFF 12 (*1st message)
  2892. PrintMessage 192 (*falling apart)
  2893. BlankLine
  2894. TurnFlagON 12
  2895. DoneWithTurn
  2896. END_COMMAND
  2897.  
  2898. COMMAND LOOK UP ANY
  2899. AtLocation 81
  2900. CounterGT 3 2
  2901. PrintMessage 193 (*still soggy)
  2902. BlankLine
  2903. DoneWithTurn
  2904. END_COMMAND
  2905.  
  2906. COMMAND LOOK UP ANY
  2907. AtLocation 81
  2908. PrintMessage 194 (*looking up OBJECT)
  2909. END_COMMAND
  2910.  
  2911. COMMAND LOOK UP ANY
  2912. AtLocation 81
  2913. CounterEquals 3 0
  2914. TurnCounterON 3
  2915. END_COMMAND
  2916.  
  2917. COMMAND LOOK UP ANY
  2918. AtLocation 81
  2919. NOUNIsCreature
  2920. PrintMessage 174
  2921. MinusScore 200
  2922. PrintMessage 191
  2923. BlankLine
  2924. DoneWithTurn
  2925. END_COMMAND
  2926.  
  2927. COMMAND LOOK UP ANY
  2928. AtLocation 81
  2929. NOUNIsEdible
  2930. PrintMessage 175
  2931. MinusScore 200
  2932. PrintMessage 191
  2933. BlankLine
  2934. DoneWithTurn
  2935. END_COMMAND
  2936.  
  2937. COMMAND LOOK UP ANY
  2938. AtLocation 81
  2939. NOUNWeightEquals 4
  2940. PrintMessage 176
  2941. PrintMessage 191
  2942. MinusScore 200
  2943. BlankLine
  2944. DoneWithTurn
  2945. END_COMMAND
  2946.  
  2947. COMMAND LOOK UP ANY
  2948. AtLocation 81
  2949. NOUNWeightEquals 5
  2950. PrintMessage 177
  2951. PrintMessage 191
  2952. MinusScore 200
  2953. DoneWithTurn
  2954. END_COMMAND
  2955.  
  2956. COMMAND LOOK UP ANY
  2957. AtLocation 81
  2958. NOUNWeightEquals 8
  2959. PrintMessage 178
  2960. PrintMessage 191
  2961. BlankLine
  2962. MinusScore 200
  2963. DoneWithTurn
  2964. END_COMMAND
  2965.  
  2966. COMMAND LOOK UP ANY
  2967. AtLocation 81
  2968. NOUNWeightEquals 9
  2969. PrintMessage 179
  2970. PrintMessage 191
  2971. BlankLine
  2972. MinusScore 200
  2973. DoneWithTurn
  2974. END_COMMAND
  2975.  
  2976. COMMAND LOOK UP ANY
  2977. AtLocation 81
  2978. NOUNWeightEquals 10
  2979. PrintMessage 180
  2980. PrintMessage 191
  2981. BlankLine
  2982. MinusScore 200
  2983. DoneWithTurn
  2984. END_COMMAND
  2985.  
  2986. COMMAND LOOK UP ANY
  2987. AtLocation 81
  2988. NOUNWeightEquals 15
  2989. PrintMessage 181
  2990. PrintMessage 191
  2991. BlankLine
  2992. MinusScore 200
  2993. DoneWithTurn
  2994. END_COMMAND
  2995.  
  2996. COMMAND LOOK UP ANY
  2997. AtLocation 81
  2998. NOUNWeightEquals 16
  2999. PrintMessage 182
  3000. PrintMessage 191
  3001. BlankLine
  3002. MinusScore 200
  3003. DoneWithTurn
  3004. END_COMMAND
  3005.  
  3006. COMMAND LOOK UP ANY
  3007. AtLocation 81
  3008. NOUNWeightEquals 17
  3009. PrintMessage 183
  3010. PrintMessage 191
  3011. BlankLine
  3012. MinusScore 200
  3013. DoneWithTurn
  3014. END_COMMAND
  3015.  
  3016. COMMAND LOOK UP ANY
  3017. AtLocation 81
  3018. NOUNWeightEquals 18
  3019. PrintMessage 184
  3020. PrintMessage 191
  3021. BlankLine
  3022. MinusScore 200
  3023. DoneWithTurn
  3024. END_COMMAND
  3025.  
  3026. COMMAND LOOK UP ANY
  3027. AtLocation 81
  3028. NOUNWeightEquals 19
  3029. PrintMessage 185
  3030. PrintMessage 191
  3031. BlankLine
  3032. MinusScore 200
  3033. DoneWithTurn
  3034. END_COMMAND
  3035.  
  3036. COMMAND LOOK UP ANY
  3037. AtLocation 81
  3038. NOUNWeightEquals 20
  3039. PrintMessage 186
  3040. PrintMessage 191
  3041. BlankLine
  3042. MinusScore 200
  3043. DoneWithTurn
  3044. END_COMMAND
  3045.  
  3046. COMMAND LOOK UP ANY
  3047. AtLocation 81
  3048. NOUNWeightLT 4
  3049. PrintMessage 187
  3050. PrintMessage 191
  3051. BlankLine
  3052. MinusScore 200
  3053. DoneWithTurn
  3054. END_COMMAND
  3055.  
  3056. COMMAND LOOK IN CRATE
  3057. Present 251
  3058. IsOpen 251
  3059. IsNowhere 261
  3060. PrintMessage 153 (*dog gone)
  3061. BlankLine
  3062. DoneWithTurn
  3063. END_COMMAND
  3064.  
  3065. COMMAND LOOK IN CHEST
  3066. Present 293
  3067. IsOpen 293
  3068. IsLocated 313 293 (*ToTo)
  3069. PutInCurrentRoom 313
  3070. PrintMessage 21 (*Toto returns)
  3071. AddToVariable 17 5000
  3072. BlankLine
  3073. PrintMessage 238
  3074. BlankLine
  3075. LookAtRoom
  3076. DoneWithTurn
  3077. END_COMMAND
  3078.  
  3079. COMMAND TALK TO ZOOKEEPER
  3080. Present 324
  3081. OR
  3082. Present 325
  3083. RandomMessage 245 250
  3084. BlankLine
  3085. DoneWithTurn
  3086. END_COMMAND
  3087.  
  3088. COMMAND READ QUARTER TO BARBER
  3089. NOUNPResent
  3090. ObjectPresent
  3091. FlagOFF 1
  3092. TONE 1397 500
  3093. TONE 1047 250
  3094. TONE 1047 250
  3095. TONE 1175 500
  3096. TONE 1047 750
  3097. TONE 1319 500
  3098. TONE 1397 500
  3099. END_COMMAND
  3100.  
  3101. COMMAND READ QUARTER TO BARBER
  3102. NOUNPResent
  3103. ObjectPresent
  3104. PrintMessage 223
  3105. BlankLine
  3106. Destroy 315
  3107. AddToVariable 17 1000
  3108. PrintMessage 238
  3109. Blankline
  3110. TurnCounterOFF 7
  3111. TurnFlagOFF 8
  3112. GoToRoom 110
  3113. PrintMessage 244
  3114. BlankLine
  3115. DoneWithTurn
  3116. END_COMMAND
  3117.  
  3118. COMMAND READ HACKSAW TO JANITOR
  3119. NOUNPResent
  3120. ObjectPresent
  3121. PrintMessage 226
  3122. BlankLine
  3123. Destroy 318
  3124. AddToVariable 17 1000
  3125. PrintMessage 238
  3126. Blankline
  3127. TurnCounterOFF 7
  3128. TurnFlagOFF 8
  3129. PrintMessage 244
  3130. BlankLine
  3131. GoToRoom 110
  3132. DoneWithTurn
  3133. END_COMMAND
  3134.  
  3135. COMMAND READ SCRIPT TO CRITIC
  3136. NOUNPResent
  3137. ObjectPresent
  3138. PrintMessage 227
  3139. BlankLine
  3140. Destroy 319
  3141. AddToVariable 17 1000
  3142. PrintMessage 238
  3143. Blankline
  3144. TurnCounterOFF 7
  3145. TurnFlagOFF 8
  3146. PrintMessage 244
  3147. BlankLine
  3148. GoToRoom 110
  3149. DoneWithTurn
  3150. END_COMMAND
  3151.  
  3152. COMMAND READ POLICY TO AGENT
  3153. NOUNPResent
  3154. ObjectPresent
  3155. PrintMessage 228
  3156. BlankLine
  3157. Destroy 320
  3158. AddToVariable 17 1000
  3159. PrintMessage 238
  3160. Blankline
  3161. TurnCounterOFF 7
  3162. TurnFlagOFF 8
  3163. PrintMessage 244
  3164. BlankLine
  3165. GoToRoom 110
  3166. DoneWithTurn
  3167. END_COMMAND
  3168.  
  3169. COMMAND READ SECRET TO ANY
  3170. NOUNPresent
  3171. Present 321
  3172. OR
  3173. Present 322
  3174. PrintMessage 229
  3175. BlankLine
  3176. Destroy 321
  3177. Destroy 322
  3178. AddToVariable 17 1000
  3179. PrintMessage 238
  3180. Blankline
  3181. TurnCounterOFF 7
  3182. TurnFlagOFF 8
  3183. PrintMessage 244
  3184. BlankLine
  3185. GoToRoom 110
  3186. DoneWithTurn
  3187. END_COMMAND
  3188.  
  3189. COMMAND READ SECRET
  3190. AtLocation 9
  3191. Present 280
  3192. RelocateAll 9 8
  3193. GoToRoom 8
  3194. PrintMessage 212
  3195. BlankLine
  3196. DoneWithTurn
  3197. END_COMMAND
  3198.  
  3199. COMMAND READ ANY
  3200. NOUNPresent
  3201. NOUNIsCreature
  3202. PrintMessage 1
  3203. BlankLine
  3204. DoneWithTurn
  3205. END_COMMAND
  3206.  
  3207. COMMAND READ DICTIONARY
  3208. FlagON 13 (*saved)
  3209. CounterGT 3 0
  3210. AtLocation 81
  3211. PrintMessage 195
  3212. BlankLine
  3213. DoneWithTurn
  3214. END_COMMAND
  3215.  
  3216. COMMAND READ DICTIONARY
  3217. CounterGT 3 2
  3218. AtLocation 81
  3219. PrintMessage 192
  3220. BlankLine
  3221. DoneWithTurn
  3222. END_COMMAND
  3223.  
  3224. COMMAND READ DICTIONARY
  3225. AtLocation 81
  3226. CounterEquals 3 0
  3227. TurnCounterOn 3
  3228. END_COMMAND
  3229.  
  3230. COMMAND READ DICTIONARY
  3231. AtLocation 81
  3232. PrintMessage 190
  3233. RandomMessage 174 187
  3234. BlankLine
  3235. DoneWithTurn
  3236. END_COMMAND
  3237.  
  3238. COMMAND READ DOOR
  3239. AtLocation 98
  3240. PrintVariableMessage 1
  3241. BlankLine
  3242. DoneWithTurn
  3243. END_COMMAND
  3244.  
  3245. COMMAND READ DOOR
  3246. AtLocation 105
  3247. PrintVariableMessage 2
  3248. BlankLine
  3249. DoneWithTurn
  3250. END_COMMAND
  3251.  
  3252. COMMAND ATTACK ANY
  3253. AtLocationLT 111
  3254. NOUNPresent
  3255. NOUNIsCreature
  3256. PrintMessage 81
  3257. BlankLine
  3258. MinusScore 500
  3259. DoneWithTurn
  3260. END_COMMAND
  3261.  
  3262. COMMAND COMMANDS DRAWER
  3263. FlagOFF 1
  3264. TONE 35 900
  3265. TONE 35 600
  3266. TONE 35 300
  3267. TONE 35 900
  3268. TONE 41 600
  3269. TONE 39 300
  3270. END_COMMAND
  3271.  
  3272. COMMAND COMMANDS DRAWER
  3273. FlagOFF 1
  3274. TONE 39 600
  3275. TONE 35 300
  3276. TONE 35 600
  3277. TONE 33 300
  3278. TONE 35 1200
  3279. END_COMMAND
  3280.  
  3281. COMMAND COMMANDS DRAWER
  3282. BlankLine
  3283. PrintMessage 238
  3284. EndGame
  3285. DoneWithTurn
  3286. END_COMMAND
  3287.  
  3288. COMMAND COMMANDS ANY
  3289. PrintMessage 242
  3290. BlankLine
  3291. DoneWithTurn
  3292. END_COMMAND
  3293.  
  3294. COMMAND SAVE ANY
  3295. CounterGT 3 0 (*read dictionary)
  3296. CounterLT 3 5
  3297. AtLocation 81
  3298. OR
  3299. AtLocationGT 74
  3300. AtLocationLT 77
  3301. TurnFlagON 13
  3302. END_COMMAND
  3303.  
  3304. COMMAND RESTORE ANY
  3305. FlagOn 13 (*saved game)
  3306. AtLocation 81
  3307. OR
  3308. AtLocationGT 74
  3309. AtLocationLT 77
  3310. PrintMessage 222
  3311. BlankLine
  3312. END_COMMANDÉ™